Database connection in classic ASP

Dim con
Dim rs
Dim ConnectString
dim accessdb
set con=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.RecordSet")
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\database.mdb"
con.open ConnectString
accessdb="database.mdb"
mysql="select * from table"

rs.open mysql, con, 3, 3