Dim objconn
set objconn = server.createobject("ADODB.connection")
objconn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=database.mdb"
objconn.open
dim objrs
set objrs = server.createobject ("ADODB.recordset")
objrs.open "tablename" , objconn, adopendynamic, , adcmdtable
response.write objrs("نام فيلد پايگاه داده")
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing