Aquí te va un ejemplo de como lo hago yo:
Código:
<%
'Declarar objetos
Dim AdoConnection
Dim AdoCommand
Dim AdoRecordset
'Crear objetos.
Set AdoConnection = Server.CreateObject("ADODB.Connection")
Set AdoCommand = Server.CreateObject("ADODB.Command")
Set AdoRecordset = Server.CreateObject("ADODB.Recordset")
'Dar a la conexión la ruta a la base de datos.
AdoConnection.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\BD.mdb")
'Abrir la conexión.
AdoConnection.Open
'Formar la consulta para verificar si el usuario existe en la BD.
cSQL = "SELECT Usr_Cuenta " & _
"FROM Usuarios " & _
"WHERE Usr_Cuenta = '" & cUsr_Cuenta & "' "
'Realizar la consulta.
With AdoCommand
.ActiveConnection = AdoConnection 'Indicar la conección activa para el objeto ADODB.Command.
.CommandTimeout = 600
.CommandText = cSQL
Set AdoRecordset = .Execute
End With
'Si la cuenta existe.
If AdoRecordset.EOF = True Then
Response.Write "<p style='color: #00013E;'><b>El usuario indicado no existe en la base de datos.</b></p>"
'Si la cuenta no existe.
Else
'Código para hacer lo que quieras cuando no existe.
End If
'Cerrar el Recordset.
AdoRecordset.Close
'Cerrar la conexión con la base de datos
AdoConnection.Close
'Liberar la memoria destruyendo los objetos.
Set AdoRecordset = Nothing
Set AdoCommand = Nothing
Set AdoConnection = Nothing
%>