Data is not inserting into database Why??????????

Question

Imports

 

System.Data.SqlClient

Imports

 

System.Data

Public

 

Class income

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim con As New SqlConnection

 

Dim cmd As New SqlCommand

 

Try

con.ConnectionString =

"Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Blue_Water.mdf;Integrated Security=True;Persist Security Info=True;User Instance=True"

con.Open()

 

'MessageBox.Show("Connection Success")

cmd.Connection = con

cmd.CommandText =

"INSERT INTO Owner_income(Shop_no, Jomidhari_vhara,Dukan_kisti, Dukan_vhara, Jamanot, Phone_sunjug_bill, Nam_transfer_fee) VALUES(@Shop_no, @Jomidhari_vhara,@Dukan_kisti,@Dukan_vhara,@Jamanot,@Phone_sunjug_bill,@Nam_transfer_fee)"

cmd.CommandType = CommandType.Text

cmd.Parameters.AddWithValue(

"@Shop_no", txtShop.Text)

cmd.Parameters.AddWithValue(

%3