Imprime la caxdena e conexion antes de darle open, al parecer no se pudo abrir correctamente
Código:
ConxStr = "Driver={SQL Server};Server=" & Servidor & ";Database=" & BaseDatos & ";Uid=" & Login & ";Pwd=" & Password & ";"
debug.print ConxStr
Conexion.Open ConxStr