حسناً, قم بوضع الكود التالي في مكان الكود الذي يظهر فيه الخطأ:
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim cmd As New OleDbCommand("insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1), cn
cmd.Parameters.AddWithValue("@nameb1", TextBox1.Text)
cmd.Parameters.AddWithValue("@mobileb1", TextBox2.Text)
cmd.Parameters.AddWithValue("@emailb1", TextBox3.Text)
cmd.Parameters.AddWithValue("@biographyb1", TextBox4.Text)
cn.Open()
cmd.ExecuteNonQuery()
cmd.Dispose()
cn.Close()
MsgBox("تم حفظ السجل بنجاح, 64", "Hreef Parmgh")
dextxt()
showdata()
Catch ex As Exception
MsgBox("Error in insertion" & vbCrLf & ex.Message)
End Try
End Sub

