dim cmpX as string = replace(txtbx3.text,"'","''") 
dim StrQry as string = "insert into tbl(campo1, campo2, campo3) VALUES('" & txtbx1.text & "', '" & txtBox2.text & "', '" & cmpX & "')"