Mensaje enviado por "Josep A. Ferrando" <jfcarpi@wanadoo.es>

Hola

p.ej.

Dim rsData As New ADODB.Recordset
Dim cnnData As New ADODB.Connection
Dim strSQL As String
Dim strCnn As String
Dim i As Integer

Public Sub Proba1()
Label1.Caption = "Proba 1. Crear una conexió, obrir un recordset"

cnnData.Provider = "MSDASQL"
strCnn = "driver={Microsoft Access Driver (*.mdb)};" _
       & "dbq=" & App.Path & "\biblio.mdb;" _
       & "uid=jfcarpi;pwd="
cnnData.Open strCnn

strSQL = "select * from authors"
rsData.Open strSQL, cnnData

While Not rsData.EOF
   'Print rsData("author")
   List1.AddItem rsData("author")
   rsData.MoveNext
Wend

End Sub

y aqui tienes diferentes cadenas de conexion

SQL7-ODBC
.Provider="MSDASQL"
.ConnectionString="Driver={SQL Server}; uid=sa ; Server=MiServidor ;
Database=MiBaseDatos"

SQL7-OLE DB
.Provider="SQLOLEDB"
.ConnectionString="Data Source=MiServidor; User Id=sa ; Password= ; Initial
Catalog=MiBaseDatos"

Access-ODBC
.Provider="MSDASQL"
.ConnectionString="Driver={Microsoft Access Driver (*-mdb)}; uid=Admin ;
Pwd= ; DBQ=MiBaseDatos"

Access-OLE DB
.Provider="Microsoft.Jet.OLEDB.4.0"
.ConnectionString="Data Source=MiBaseDatos; User Id=Admin ; Password= "

Saludos
Josep A. Ferrando