I can insert data into the table but nothing inserted

I will try again but same thing is happen

Dim insql As String = "INSERT INTO patient (recpno,name,age,phone,date,refby,address,testcode,testname,amount) VALUES (@number1,@text2,@number3,@text4,@text5,@number6,@text7,@text8,@text9,@number10)"

        Dim cmd As SqlCommand = New SqlCommand(insql, sqlconn)
        Try

            sqlconn.Open()

            cmd.Parameters.AddWithValue("@number1", recieptxt.Text)
            cmd.Parameters.AddWithValue("@text2", nametxt.Text)
            cmd.Parameters.AddWithValue("@number3", agetxt.Text)
            cmd.Parameters.AddWithValue("@text", addresstxt.Text)
            cmd.Parameters.AddWithValue("@text5", datetxt.Text)
            cmd.Parameters.AddWithValue("@number6", phonetxt.Text)
            cmd.Parameters.AddWithValue("@text7", refbytxt.Text)
            cmd.Parameters.AddWithValue("@text8", testcodetxt.Text)
            cmd.Parameters.AddWithValue("@text9", testnametxt.Text)
            cmd.Parameters.AddWithValue("@number10", amounttxt.Text)


            Dim rowsins As Double = cmd.ExecuteNonQuery
              sqlconn.Close()

        Catch ex As Exception
            MessageBox.Show(rowsins.ToString & rowsins.ToString & " row added")
        End Try
   End Sub

there's nothing wrong with your code. most probably you got the wrong sqlconn connection string or you got the wrong table.

to see the exception. rewrite to exception catch like this:

Catch ex as Exception
msgbox(ex.message)
End Try

It is extremely difficult for anyone to check your code without a configured database and connection string to match.

You want a quick solution? Remove the try/catch completely. That is the best way to see what is causing the problem.

Dim cmd As SqlCommand = New SqlCommand(insql, sqlconn)        
sqlconn.Open()
cmd.Parameters.AddWithValue("@number1", recieptxt.Text)
cmd.Parameters.AddWithValue("@text2", nametxt.Text)
cmd.Parameters.AddWithValue("@number3", agetxt.Text)            cmd.Parameters.AddWithValue("@text", addresstxt.Text)            cmd.Parameters.AddWithValue("@text5", datetxt.Text)            cmd.Parameters.AddWithValue("@number6", phonetxt.Text)            cmd.Parameters.AddWithValue("@text7", refbytxt.Text)            cmd.Parameters.AddWithValue("@text8", testcodetxt.Text)            cmd.Parameters.AddWithValue("@text9", testnametxt.Text)            cmd.Parameters.AddWithValue("@number10", amounttxt.Text)
Dim rowsins As Double = cmd.ExecuteNonQuery
sqlconn.Close()        

The problem with empty catch blocks is that you never find you have a problem.

Try putting a MessageBox.Show into the catch block and looking at the message and any inner exception. There is a good chance that the SQL is complaining about a syntax error, type error or similar.

BTW: Please, for your own benefit (as well as that of anyone who has to look at your code) use sensible names! TextBox1 to TextBox10 is not descriptive of what they hold, and it is hard to be sure you are putting the right data in the right field.

The same goes for named parameters: you have gone to the effort to name your table fields sensibly, so why not use the same names for your parameters? Then you could see at a glance if they match up...