Find the path to the database file:
'Declare Variables
Dim dcnDB 'As ADODB.Connection
Dim rsDB 'As ADODB.Recordset
Dim sqlQuery 'As String
'Find path of database file
filePath = Server.MapPath("ADVISOR.MDB")
Open the database connection using the Microsoft Jet Database Engine:
'Open Database Connection
Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filePath
dcnDB.Open
'dcnDB.Open "DBName" - This is for an ODBC Datasource (if set up) or
' use the below code for opening a Access 2000 DB
Query the database and create a recordset
'Query and create recordset
sqlQuery = "SELECT * FROM Students ORDER BY LastName,FirstName"
Set rsDB = Server.CreateObject("ADODB.Recordset")
Set rsDB = dcnDB.Execute(sqlQuery)