no me esta funciona la deje de esta manera para ocuparla de forma modular
Código PHP:
Option Explicit
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "PROVIDER=SQLOLEDB.1;USER ID=sa;INITIAL CATALOG=AQUITUBASEDEDATOS;DATA SOURCE=(local)"
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub