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