Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim
cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
sPathBase = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & sPathBase & ";"
cnn.Open
rst.
Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
Para mayor información:
http://www.elguille.info/VB/cursos_v...o/basico41.htm