error 3075 en tiempo de ejecución

[crucifijo]

Hola amigos fijense que estoy realizando la entrada de un sistema ya saben que escogas tu login y escribas tu contraseña ya he realizado parte del programa de hecho tengo un datalist donde me muestra todos los usuarios y una caja de texto donde se escribe la contraseña de hecho aqui le dejo mi codigo.

Tengo un modulo donde donde declare lo siguiente:

Module1
Public db As New ADODB.Connection
Public rec As New ADODB.Recordset

Y mi forma donde es la entrada aqui esta el codigo


Private Sub CmbAceptar_Click()
rec.Open "Select * from Usuarios where IdUsuario = '" & DataList1.Text & "' ", db, adOpenKeyset, adLockOptimistic
With rec
If TxtContraseña.Text = !Clave Then
Form2.Show
Form1.Hide
Exit Sub
ElseIf TxtContraseña.Text = "" Then
Nc = MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
DataList1.SetFocus
Exit Sub
Else
Nc = MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
DataList1.SetFocus
TxtContraseña.Text = ""
Exit Sub
End If

End With
rec.Close
End Sub

Private Sub Form_Load()
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Roberto\Escritorio\ITFP\BaseDatos.mdb;Per sist Security Info=False"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Roberto\Escritorio\ITFP\BaseDatos.mdb;Per sist Security Info=False"

End Sub

El problema es que cuando le doy doble click a mi boton de aceptar me manda el error
"error 3075 en tiempo de ejecución"
"La operacion no esta permitida si el objeto esta abierto"


Ojala me puedan hechar la mano gracias

[GeoAvila]

Private Sub CmbAceptar_Click()
Set rec = new ADODB.recordset '***faltante..
rec.Open "Select * from Usuarios where IdUsuario = '" & DataList1.Text & "' ", db, adOpenKeyset, adLockOptimistic

eso te falta...

[victdelr]

Iniciado por GeoAvila

Private Sub CmbAceptar_Click()
Set rec = new ADODB.recordset '***faltante..
rec.Open "Select * from Usuarios where IdUsuario = '" & DataList1.Text & "' ", db, adOpenKeyset, adLockOptimistic

eso te falta...

QUE TAL COMO VA ME PUEDE COLABORAR CON LO FALTANTE PARA ESTE CODIGO
SALE EL ERROR 438 CUANDO DOY CLICK EN EL BOTON OK SI ESTAN LOS CAMPOS VACIOS

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
Set rec = dta_administradores.Recordset '***faltante..
rec.Open "Select * from dta_administradores where login = '" & dbc_login.Text & "' ", db, adOpenKeyset, adLockOptimistic

Dim aux As Integer

dta_administradores.RecordSource = "SELECT * FROM administradores WHERE login = '" & dbc_login.Text & "' And password = " & txtPassword.Text & ""
dta_administradores.Refresh

aux = dta_administradores.Recordset.AbsolutePosition

If aux = 0 Then
MsgBox "OK ADMINISTRADOR AUTORIZADO", vbInformation, "Inicio de sesion"
Unload Me
frm_menu.Show
Else
MsgBox "ERROR USUARIO NO AUTORIZADO", vbCritical, "Inicio de sesion"
txtPassword.Text = ""
txtPassword.SetFocus
End If
End Sub

Private Sub Form_Activate()
txtPassword.Text = ""
End Sub