VBScript dinamik insert - yardim

set CONNECT = server.CreateObject("ADODB.Connection") CONNECT.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanim.mdb"))

set rs = CONNECT.Execute("select * from "& session("tablo_adi")) 
for each column in rs.fields 
       response.write column.name &"</br>"
next

Bir tabloya ait sütun adlarını listeliyor.

Bu listelenen sütun adlarına veri ekleme nasıl yaparım?