RE:visual y bases de datos
Estas funciones las utilizo para conectarme con ADO:
Tenes que usar la referencia:
Microsoft Activex Data Objects 2.0Library
Declarar Variables
dim BD As New ADODB.Connection
dim RC As New ADODB.Recordset
'ENTRADAS --
'SALIDAS un valor booleano indicando si se realizo la conecciòn
'RESTRICCIONES --
Public Function CONECTAR() As Boolean
On Error GoTo aqui
CONECTO = True
cn.Open "Dsn=siecoop", "UID=?", "Pwd=!!"
Exit Function
aqui:
MsgBox "No se pudo Realizar Conecciòn Con la Base de Datos", vbInformation, "Base de Datos"
CONECTO = False
End Function
'ENTRADAS instrucciòn SQL
'SALIDAS --
'RESTRICCIONES --
Public Sub SQL(insSQL)
On Error GoTo aqui
RC.Open insSQL, cn, adOpenDynamic, adLockBatchOptimistic
Exit Sub
aqui:
MsgBox "Error al Ejecutar Instrucciòn SQL" & Chr(13) & Err.Description, vbExclamation, "Base de Datos"
End Sub
Public Sub EXEC(SQL)
On Error GoTo aqui
cn.Execute SQL
Exit Sub
aqui:
MsgBox "Error al ejecutar instrucciòn SQL" & Chr(13) & Err.Description, vbInformation, "Base de Datos"
End Sub
'Desconecta la Base de Datos
Public Sub DESCONECTAR()
On Error GoTo aqui
cn.Close
Exit Sub
aqui:
MsgBox "Error al Desconectar la Base de Datos", vbInformation, "Base de Datos"
End Sub
Creo que Esto te puede solucionar el problema
Se despide
Insecto Malvado