Inténtalo de esta manera:
Código vb:
Ver originalDim sCnnSQL As String
sCnnSQl = "Provider=SQLNCLI10;Data Source=(local)\SQLExpress;Integrated Security=SSPI;Persist Security info=True;Initial Catalog=pubs"
Set cnn = New ADODB.Connection
cnn.Open sCnnSQL
Saludos
