Snasui Excel Forum

Code: Select all

Private Const myPATH As String = "E:\MyApplications\"
Private Const myDBFILENAME As String = "myDB.accdb"

Sub myDataAccess()
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim sDBFile As String
Dim sSQL As String
Dim i As Integer

sDBFile = myPATH + myDBFILENAME

With oConn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" + sDBFile
    '.Properties("Data Source") = sDBFile
    .Properties("Jet OLEDB:Database Password") = "xxxxxx-xxx"
    .Open
End With

If oConn.State <> adStateOpen Then Exit Sub

sSQL = "SELECT * FROM Employees"

oRs.CursorLocation = adUseClient
'source,actconn,cursortyp,locktyp,opt
oRs.Open sSQL, oConn

MsgBox oRs.RecordCount

oRs.Close
oConn.Close
End Sub