علت این خطا چیه؟

[فاطمه_نيك نژاد]

سلام این خطا پدر منو درآورده هر کار میکنم نمیره اینم کل کدم
خطا :object refrence not set to an instance of an object
خواهش میکنم در اسرع وقت جوابمو بدبد وحشتناک لازمش دارم و وقتم هم به شدت کمه


Imports System.Data.SqlClient
Public Class sharh
Dim sqlconn As New SqlConnection
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim jens As String
If RadioButton1.Checked = True Then
jens = RadioButton1.Text
Else
jens = RadioButton2.Text
End If
Try
Dim sqlcmd1 As New SqlCommand
sqlcmd1.CommandText = "INSERT INTO sharh(mfname,mlname,mpedar,sid,mid,jensiat,abcar,v azeomomi,gerye,sianoz,rang,tonos,anomali,bandnaf,g had,vazn,sar,sine,tanafos,code)VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & jens & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox16.Text & "','" & TextBox17.Text & "','" & ComboBox1.SelectedItem.ToString & "','" & TextBox18.Text & "')"
sqlcmd1.Connection = sqlconn
If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
sqlcmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Try
Dim sqlcmd1 As New SqlCommand
sqlcmd1.CommandText = "INSERT INTO paziresh(code)VALUES('" & TextBox18.Text & "')"
sqlcmd1.Connection = sqlconn
If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
sqlcmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Try
Dim sqlcmd1 As New SqlCommand
sqlcmd1.CommandText = "INSERT INTO parastar(code)VALUES('" & TextBox18.Text & "')"
sqlcmd1.Connection = sqlconn
If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
sqlcmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Try
Dim sqlcmd1 As New SqlCommand
sqlcmd1.CommandText = "INSERT INTO last_moayeneh(code)VALUES('" & TextBox18.Text & "')"
sqlcmd1.Connection = sqlconn
If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
sqlcmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Try
Dim sqlcmd1 As New SqlCommand
sqlcmd1.CommandText = "INSERT INTO first_moayeneh(code)VALUES('" & TextBox18.Text & "')"
sqlcmd1.Connection = sqlconn
If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
sqlcmd1.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub

[jahanmanesh]

سلام
بهتره اين Try Catch ها رو برداري كه وقي ERROR ميده ، بره رو اون LINE كه توش خطا اتفاق افتاده كه بدوني از كجا داره ايراد ميگيره(چون اينجوري (TRY Cathch) فقط يه پيام بت ميده و نميدوني خطا كجاي فرم اتفاق افتاده

[Sharif Lotfi]

سلام
با توجه به اینکه اطلاع دقیقی از نام فیلدهای شما ندارم گفتنش یه خورده سخته ولی اولین چیزی که به نظرم اومد تو این خطه که تو نام فیلد v azeomomi فاصله افتاده (البته اگه اسمش دقیقا همین نباشه)
چک کنین اگه نباید فاصله باشه اونو اصلاح کنین

sqlcmd1.CommandText = "INSERT INTO sharh(mfname,...,jensiat,abcar,v azeomomi,gerye,...
اگه این اشکال نبود بگین تا دوباره چک کنیم
سبز باشید

[Amateur_G]

اگر میخوایید دقیق بگم باید بگید که از چه خطی ایزاد میگیره
اما فکر می کنم ایراد از نوع connection باشه یعنی sqlcon
باید بنویسید:
dim sqlcon as new sqlconnection("رشته connection")