sampleins.vb

Try
'con.Open()*/
        Query = "INSERT INTO mcs.custormer (custormer_id,first_name,last_name,nic_no,c_address1,c_address2,c_address3,c_telephoneno,membership_date,business_name,g_name,g_nicno,g_address1,g_address2,g_address3,g_telephoneNO)" & _
            "VALUES (@custormer_id,@first_name,@last_name,@nic_no,@c_address1,@c_address2,@c_address3,@c_telephoneNO,@membership_date,@business_name,@g_name,@g_nicno,@g_address1,@g_address2,@g_address3,@g_telephoneNO)"
        Using cmd = New MySqlCommand(Query, con)

            cmd.Parameters.AddWithValue("@custormer_id", Convert.ToInt32(txtcustormerid.Text))
            cmd.Parameters.AddWithValue("@first_name", Convert.ToString(txtfirstname.Text))
            cmd.Parameters.AddWithValue("@last_name", Convert.ToString(txtlastname.Text))
            cmd.Parameters.AddWithValue("@nic_no", Convert.ToString(txtnicno.Text))
            cmd.Parameters.AddWithValue("@c_address1", Convert.ToString(txtcaddress1.Text))
            cmd.Parameters.AddWithValue("@c_address2", Convert.ToString(txtcaddress2.Text))
            cmd.Parameters.AddWithValue("@c_address3", Convert.ToString(txtcaddress3.Text))
            cmd.Parameters.AddWithValue("@c_telephoneNO", Convert.ToString(txtctelephoneno.Text))
            cmd.Parameters.AddWithValue("@membership_date", Convert.ToDateTime(dtpmembrshipdate.Text))
            cmd.Parameters.AddWithValue("@business_name", Convert.ToString(txtbusinessname.Text))
            cmd.Parameters.AddWithValue("@g_name", Convert.ToString(txtgname.Text))
            cmd.Parameters.AddWithValue("@g_nicno", Convert.ToString(txtgnicno.Text))
            cmd.Parameters.AddWithValue("@g_address1", Convert.ToString(txtgaddress1.Text))
            cmd.Parameters.AddWithValue("@g_address2", Convert.ToString(txtgaddress2.Text))
            cmd.Parameters.AddWithValue("@g_address3", Convert.ToString(txtgaddress3.Text))
            cmd.Parameters.AddWithValue("@g_telephoneNO", Convert.ToString(txtgtelephoneno.Text))
            cmd.ExecuteNonQuery()
            MessageBox.Show("New Custormer Added Sucsessfully !")
            txtcustormerid.Clear()
            txtfirstname.Clear()
            txtlastname.Clear()
            txtnicno.Clear()
            txtcaddress1.Clear()
            txtcaddress2.Clear()
            txtcaddress3.Clear()
            txtctelephoneno.Clear()
            txtbusinessname.Clear()
            txtgname.Clear()
            txtgaddress1.Clear()
            txtgaddress2.Clear()
            txtgaddress3.Clear()
            txtgtelephoneno.Clear()
            txtgnicno.Clear()
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        'da.Dispose()
        'ds.Clear()
        ' dr.Close()
        cmd.Dispose()
        con.Close()
    End Try