اجرا نشدن متد .ExecuteNonQuery()

سلام
در دستور () cmdInsert.ExecuteNonQuery خطا ميگيره IIs .
نميدونم سوالم واضح است يا نه

متن insert را بگذار- متن کدت را بگذار

دكمه ثبت نام رو كه ميزنم تا اطلاعات فيلدام تو ديتابيس قرار بگيره اين پيغام رو ميده.
اينم كد:

Sub btnSubmit_Click( s As Object, e As EventArgs )
Dim conRuyesh As SqlConnection
Dim cmdInsert As SqlCommand
Dim ParmPID As SqlParameter
Dim IntPursuit As Integer
If IsValid Then
conRuyesh = New SqlConnection( "Server=SSLA-DFA8EFB40F;Database=Ruyesh;UID=sa;PWD=secret;" )
cmdInsert = New SqlCommand( "AddPerson", conRuyesh )
cmdInsert.CommandType=CommandType.StoredProcedure
ParmPID=cmdInsert.Parameters.Add("ReturnValue",Sql DbType.int)
ParmPID.Direction=ParameterDirection.ReturnValue
cmdInsert.Parameters.Add( "@fname", txtFirstname.Text )
cmdInsert.Parameters.Add( "@lname", txtLastname.Text )
cmdInsert.Parameters.Add( "@dname", txtFathername.Text )
cmdInsert.Parameters.Add( "@certificate", txtCerificate.Text )
cmdInsert.Parameters.Add( "@nation", txtNation.Text )
cmdInsert.Parameters.Add( "@born", txtBorn.Text )
cmdInsert.Parameters.Add( "@gender", dropgender.SelectedItem.Text )
cmdInsert.Parameters.Add( "@state", txtstate.text )
cmdInsert.Parameters.Add( "@city", dropCity.SelectedItem.ToString)
cmdInsert.Parameters.Add( "@addr", txtAddr.text)
cmdInsert.Parameters.Add( "@post", txtPost.text)
cmdInsert.Parameters.Add( "@pre", txtPrephone.text)
cmdInsert.Parameters.Add( "@phone", txtPhone.text)
cmdInsert.Parameters.Add( "@mail", txtMail.text)
cmdInsert.Parameters.Add( "@educate", dropEducate.SelectedItem.ToString)
cmdInsert.Parameters.Add( "@degree", dropDegree.SelectedItem.ToString)
conRuyesh.Open()
cmdInsert.ExecuteNonQuery()
IntPursuit=cmdInsert.Parameters("ReturnValue").Val ue
conRuyesh.Close()