Database connection (DSN-less)

filePath = Server.MapPath("PATH TO DATABASE")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set objRS = Server.CreateObject( "ADODB.Command" )
objRS.ActiveConnection = objConn