conexion a base de datos

[pepe1970]

hola necesito ayuda, no puedo conectar a mi base de datos este es mi script tengo un error y no se donde esta

 

Dim Conect As Object
Set Conect = CreateObject("ADODB.Connection")

Conexion = "Provider=SQLOLEDB.1;" & _
           "Password=" & 123456 & ";" & _
           "Persist Security Info=True;" & _
           "User ID=" & usuario1 & ";" & _
           "Initial Catalog=" & administracion & ";" & _
           "Data Source=" & DESKTOP-6OND6L7\SQLEXPRESS & "

Conect.ConnectionString = Conexion

Conect.Open
    
    

End Sub

 

[Abraham Valencia]

Hola

¿Qué error exacto te da y en qué línea? De preferencia envía captura de pantalla.