sanely_86

Experiencia

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.Open "Provider=la_bd_que_usas;Password=la_contrasenna;User ID=el_usuario;Data Source=nombre_bd;Persist Security Info=True"
End With
Sql = "SELECT * FROM tabla"
Set rs = cn.Execute(Sql)
Con ese codigo vas a poder conectarte a la base de datos autentificandote y haciendo las consultas que necesites, solo recuerda tener activo tu activex 2.0