<%Option Explicit%>


<%
Dim StrConnect , objConn , objRS 


Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")


  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Inetpub\wwwroot\qdatabase1.mdb;" & _
               "Persist Security Info=False"


objRS.Open "People", objConn, 0, 1, 2

While Not objRS.EOF
  Response.Write objRS("Q1")
  objRS.MoveNext
Wend


'objConn.Execute = "INSERT INTO People (Field1) Values ('test')"
'Neither does the above work

objRs.AddNew
objRs("Q1") = "Test"
objRs("Field2") = "Test1"
objRs.Update



objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing 
%>