<% SQLStatment= "Select * From hot " DbPath = SERVER.MapPath("hot.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath Set cmdTemp = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = CmdTxt cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = Conn RS.Open cmdTemp, , 1, 3 %>