Código:
Espero cualquier sugerencia, por lo pronto gracias Public Sub IniciarConexion()
With CnnSql
.CursorLocation = adUseClient
.Open "Provider=SQLNCLI10;Server=NombredelServidor;Database=" & _
"NombreBD;" & "Uid=Usuario;Pwd=Password"
End With
End Sub

