dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
cn.open connectionstring
dim sqlstring as string,string1 as string
string="you want insert varint"
sqlstring="insert into tabelname(colnum1,colnum2,..,colnumn) values('youwantinsertstring1','" & text1.text & "',..,'" & string1 & "')"
rs.open sqlstring,cn,1,1