Problema con cadena de conexión

[lokoman]

Hola!!
Necesitas Usuario|Clave para el Server?

Código vb:

Sub ConectarSQL()
    Dim strConectarSQL As String
    
    Set ConexionSQL = New ADODB.Connection
 
    strConectarSQL = "Provider=SQLOLEDB.1"  _
            & ";Password=" & "PASSWORD" _
            & ";Persist Security Info=True;" _
            & ";User ID=" & "USUARIO" _
            & ";Initial Catalog=BS1" _
            & ";Data Source=WILLIAMS"
 
    ConexionSQL.ConnectionString = strConectarSQL
    ConexionSQL.Open
End Sub
 

O es que te quieres conectar a Access?

Código vb:

Set Conexion = New ADODB.Connection
    With Conexion
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\BaseDatos.mdb;Persist Security Info=False"
        Conexion.Open
    End With