Hola, te paso el código de una función que hice hace rato ya:
function existeDato(tabla,columna,condicion)
set registros = Server.CreateObject("ADODB.RecordSet")
cadena = "SELECT " & columna & " FROM " & tabla & " WHERE " & condicion
registros.open cadena,conexion
if registros.eof = false OR registros.bof = false then
existeDato = True
else
existeDato = False
end if
set registros = nothing
end function
Trae la tabla con la condición que querés, si está vacía es porque el dato no existe, en tu caso la podés llamar haciendo algo así como:
variable = existeDato("usuarios","nombre","nombre='" & nombreUsuario & "'")
tal vez haya alguna forma más eficiente de hacer esto mismo, yo en su momento encontré esta manera que funciona, ojalá te sirva. Saludos!