Ver Mensaje Individual
  #6 (permalink)  
Antiguo 06/04/2005, 09:01
Avatar de ccca001
ccca001
 
Fecha de Ingreso: agosto-2004
Mensajes: 388
Antigüedad: 20 años, 8 meses
Puntos: 0
mmm. prueba con este codigo:
Public oconn As New ADODB.Connection
Public rst As New ADODB.Recordset

With oconn
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=TUPATH/TUBASE.mdb;Uid=TUUSUARIO;Pwd=TUCLAVE;"
.Open
End With

rst.Open "SELECT * FROM tutabla", oconn, adOpenDynamic, adLockOptimistic
Set consulta = oconn.Execute("SELECT * FROM tutabla")

no olvides aplicar las referencias en el menu proyecto :
microsoft dao 3.6 object library (creo)

si no, me cuentas, teambien hay otros modos...
__________________
"How do you define Real?"