Dim cn As ADODB.Connection
Dim strSQL As String
Set cn = New ADODB.Connection
'Conectar a BASE_DE_DATOS
cn.Open "Provider=SQLOLEDB;Data Source=SERVIDOR;" & _
"Initial Catalog=BASEDEDATOS;User ID=USUARIO;Password=PASSWORD"
'AKI PUEDES HACER EL METODO KE DESEES select, insert, update, delete...
strSQL = "SELECT * FROM TABLA_DE_DATOS"
' ESTA PARTE EJECUTA EL METODO KE ESCOGISTES
cn.Execute strSQL
cn.Close
Set cn = Nothing