i don't think that is VB 6.0 code.
if vb 6.0 then try this
Dim Sql As String = "insert into Customer_tbl (Custsql )values '" & txtFirstName.Text & "','" & txtLastName.Text & "')"
con.begintrans 'con-----ADODB connection object.
con.execute sql
con.committrans