26/02/2005, 21:13
|
| | | Fecha de Ingreso: febrero-2005
Mensajes: 8
Antigüedad: 19 años, 2 meses Puntos: 0 | |
| Investigando en otras partes del foro vi que hacer, lo que me vino funcionando fue:
Dim conexion As New adodb.Connection
Dim tabla As New adodb.Recordset
Private Sub Form_Load()
conexion.ConnectionString = "Provider= SQLOLEDB.1;Persist Security Info= False; Integrated Security=SSPI;Password=mipass;User ID=miuser;Initial Catalog=midatabase;Data Source= miservidor"
conexion.Open
tabla.Open "select * from mitabla", conexion, adOpenStatic, adLockOptimistic
End sub |