overføre tabelværdi til ny tabel

Hejsa roder med en form hvor folk skal logge ind og udfylde et skema.

det folk udfylder smides i tabel2, deres login id hentes fra tabel1

Det jeg ik kan finde ud af er at skrive deres loginnavn i tabel2

Har lavet noget lign.:


%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/questions.mdb")

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From tabel1"
    brugerSQL = "SELECT * FROM brugere WHERE idUser=" & Session("idUser")
   
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rsbruger.Open brugerSQL, Conn, adOpenKeyset, adLockOptimistic
   
      rs.AddNew
      rs("svar1") = question1
      rs("svar2") = question2
      rs("svar3") = question3
      rs("svar4") = question4
      rs("navn") = rsbruger("brugernavn")
      rs("maaned") = MonthName(Month(Date))
     
      rs.Update

    rs.Close
    Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect ("side2.asp")
%>

Nogen der kan hjælpe ?