Error al Cargar Formulario
Dando lata de nuevo me marca un error en este código
Private Sub Form_Load()
Dim X As Integer
CenterForm Me
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\ham1.mdb;"
Set Adologin = New Recordset
Adologin.Open "select User,password,files,transactions,reports,usersetup,database from users Order by User", db, adOpenStatic, adLockOptimistic
For X = 1 To Adologin.RecordCount
txtUserid.AddItem Adologin.Fields("User")
Adologin.MoveNext
Next X
txtUserid.ListIndex = 0
End Sub
El mensaje de error indica:
Error de compilación El uso de la palabra clave NEW no es válido
Gracias
Private Sub Form_Load()
Dim X As Integer
CenterForm Me
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\ham1.mdb;"
Set Adologin = New Recordset
Adologin.Open "select User,password,files,transactions,reports,usersetup,database from users Order by User", db, adOpenStatic, adLockOptimistic
For X = 1 To Adologin.RecordCount
txtUserid.AddItem Adologin.Fields("User")
Adologin.MoveNext
Next X
txtUserid.ListIndex = 0
End Sub
El mensaje de error indica:
Error de compilación El uso de la palabra clave NEW no es válido
Gracias
1 Respuesta
Respuesta de denciso
1
Si estás intentando utilizar los métodos de conexión y de recordset del ADO, te hace falta la referencia en tu proyecto...
