Option Explicit
Dim bd As String
Dim ConnStatus As Boolean
Dim CNN As New ADODB.Connection
Public Function ConectarADO(BDpath As String) As Boolean
Dim connectstring As String
connectstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & BDpath & ";Uid=USER;Pwd=PASSWORD"
CNN.CursorLocation = adUseClient
CNN.Open connectstring
End Function
Public Sub DesconectarADO()
CNN.Close
Set CNN = Nothing
End Sub
Public Function AbreRecordSetADO(strSQL As String) As ADODB.Recordset
Set AbreRecordSetADO = CNN.Execute(strSQL)
End Function
Public Function ExecutaSQLADO(strSQL As String)
CNN.Execute (strSQL)
End Function