Insert Into

[user name]

i use this to grab the fields from my database but how do you add a new row using the INSERT INTO.

Set rec = New Recordset
 
rec.Open "SELECT * FROM Tdetails", con, adOpenKeyset, adLockOptimistic
 
 Do While Not rec.EOF
  Set itm = lv.ListItems.Add(, , rec.Fields(0))
   itm.SubItems(1) = rec.Fields(1)
   itm.SubItems(2) = rec.Fields(2)
   itm.SubItems(3) = rec.Fields(3)
   itm.SubItems(4) = rec.Fields(4)
   itm.SubItems(5) = rec.Fields(5)
  rec.MoveNext
 Loop
 
rec.Close
Set rec = Nothing

thanks.