27/05/2004, 19:59
|
 | | | Fecha de Ingreso: marzo-2002 Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 22 años, 10 meses Puntos: 7 | |
| Colocas los With separados a ver si es eso. Si no lo es, pues, debes ser más explícito, que error te tira?
[CODE]
With conexion
.Provider = "MSDataShape.1"
.ConnectionString = "Data Source=" & "C:\carpeta\db.mdb;" _
& "Data Provider=Microsoft.Jet.OLEDB.4.0;"
.Open
End With
With recorset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
[CODE]
__________________
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance-- |