MS Access Database Connection String

Please find your connection here :: 

strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/your-database.mdb")
'------------------------------------------------------
'Create Connection and record set objects

set conn= server.createObject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
conn.Open strconn