خطا در هنگام اضافه کردن رکورد به SQL Server

[ashkan209]

دوستان سلام
کد زیر برای insert به ، sql server نوشته شده ، اما با خطا مواجه میشود
دوتا اسکرین شات از خطا و دیزاین table فرستاده ام که کل موضوع را نشان میدهد . چنانچه با دیباگ کردن آن آشنا هستید ، لطفا راهنمائی کنید


Dim InsComm As String = "insert into personidentity (prsid,fname,lname,bdate,father," &
"bcnumber,natcode,blcode,bedesc,bcconc,ppnumber,sex ,nat)" &
" values(@prsid,@fname,@lname,@bdate,@father" &
",@bcnumber,@natcode,@blcode,@bedesc,@bcconc,@ppnum ber,@sex,@nat)"


Dim comm As New SqlCommand(InsComm, Conn)
comm.CommandType = CommandType.Text

With comm.Parameters
.AddWithValue("@prsid", txtPrsid.Text)
.AddWithValue("@fname", txtFname.Text)
.AddWithValue("@lname", txtLName.Text)
.AddWithValue("@bdate", mskBdate.Text)
.AddWithValue("@bcnumber", txtBCNumber.Text)
.AddWithValue("@father", txtFather.Text)
.AddWithValue("@natcode", mskNatcode.Text)
.AddWithValue("@blcode", cboBirth.SelectedValue)
.AddWithValue("@bedesc", txtBE.Text)
.AddWithValue("@bcconc", mskBEconc.Text)
.AddWithValue("@ppnumber", txtPPnumber.Text)
.AddWithValue("@sex", cboSex.SelectedValue)
.AddWithValue("@nat", cboNat.SelectedValue)
End With

Conn.Close()
Conn.Open()
comm.ExecuteNonQuery()
Conn.Close()






7134171342