Tengo un problema con la conexion a una BBDD

alson0508
28 de Enero del 2005
Dim dbMydb2 As Database
Dim rec As Recordset
Dim strSQL As String

Public aux1 As String
Public aux2 As String
Public aux3 As String


Private Sub Form_Load()
Set dbMydb2 = OpenDatabase("G:AlfonsoBBDD97.mdb")
End Sub


Private Sub Command1_Click()
strSQL = "Select Usuario,Clave,Rol From ROLES"
Set rec = dbMydb2.OpenRecordset(strSQL) //Aqui me da error

If reg.NoMatch Then
MsgBox "Usuario y Password no coinciden"
Else
aux1 = reg.Fields(0)
aux2 = reg.Fields(1)
aux3 = reg.Fields(2)

FormValidacion.Visible = False
FormPrincipal.Visible = True
End If

End Sub


//////////
Soy nuevo en esto del VB y tengo una pequeño manual donde mas o menos dice esto para realizar una Select en vissual basic pero ami me falla me podeis ayudar

Gracias

l_island
28 de Enero del 2005
Si te da error te debe dar algún mensaje, saber cual es el mensaje sería de gran ayuda.

Saludos!!
l_island