Thank you for your question.
Dim strConn
strConn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\DatabaseFolder\AccessDatabase.mdb;DefaultDir=YourDefaultDir;UID=YourUserID;PWD=YourPassword;"
Dim oConnection
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open strConn
Dim recordSet
set recordSet= Server.CreateObject("ADODB.RecordSet")
recordSet.Open "SELECT * FROM TableA ", oConnection, adOpenForwardOnly, adLockOptimistic
Thanks,
Mamun