Error en carga del 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
