ayuda.....urgente....

[kakarot]

aqui te dejo unas funciones q utilizo yo para conectar bd

Global servidor As String
Global cn As ADODB.Connection

Function conectar(pcn As ADODB.Connection) As String

Dim oracle As String
Set pcn = New ADODB.Connection
oracle = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\Varios\Matís.mdb;Persist Security Info=False"

pcn.Open oracle

End Function

Function conectarRs(prs As ADODB.Recordset, pcn As ADODB.Connection, tabla As String) As String
'On Error GoTo etiqueta
Set prs = New ADODB.Recordset
Set prs.ActiveConnection = pcn
prs.CursorLocation = adUseClient
prs.CursorType = adOpenDynamic
prs.LockType = adLockOptimistic
prs.Open tabla
'etiqueta:
' oracle = MsgBox(Err.Description, vbCritical, "ERROR de conexió")

End Function

Function conectaAdodc(pcn As Adodc, tabla As String) As String

pcn.ConnectionString = "Provider=MSDAORA.1;Password=projecte;" & "User ID=projecte;DataSource=" & servidor & ""
pcn.CursorLocation = adUseClient
pcn.CursorType = adOpenDynamic
pcn.LockType = adLockBatchOptimistic
pcn.CommandType = adCmdTable
pcn.RecordSource = tabla
End Function

Function desconectar(rs As ADODB.Recordset, cn As ADODB.Connection)
rs.Close
cn.Close
End Function