[bumb]

السلام عليكم

لدي كود يحفظ في 3 حداول
الكود يمشي في حفظ البيانات الخاصه بالجدول الأول تمام ولما يجي على الجدول الثاني يوقف وتظهر رساله الخطأ (معلمات قليله جداً المتوقع هو 3)

اليكم الكود

PHP كود :

Private Sub btnSaveInfo_Click(sender As Object, e As EventArgs) Handles btnSaveInfo.Click
        Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
        Dim ApoSYSconn As New OleDbConnection(ConnString)
        ApoSYSconn.Open()

        Dim CMD As New OleDb.OleDbCommand("qNewCustomer", ApoSYSconn)
        CMD.CommandType = CommandType.StoredProcedure

        CMD.Parameters.Add(New OleDb.OleDbParameter("@CivilRegNum", txtCRN.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name1", txtName1.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name2", txtName2.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name3", txtName3.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name4", txtName4.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@MobileNum", txtMobileNo.Text))

        CMD.ExecuteNonQuery()

        Dim CMD1 As New OleDb.OleDbCommand("qNewBarwah", ApoSYSconn)
        CMD1.CommandType = CommandType.StoredProcedure

        CMD.Parameters.Add(New OleDb.OleDbParameter("@Customer", txtCRN.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum", txtBarwahNo.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Notes", txtNotes.Text))

        CMD1.ExecuteNonQuery()

        Dim CMD2 As New OleDb.OleDbCommand("qNewDate", ApoSYSconn)
        CMD2.CommandType = CommandType.StoredProcedure

        CMD.Parameters.Add(New OleDb.OleDbParameter("@BawahNum", txtBarwahNo.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReg", txtDateReg.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReceipt", txtDateRecipt.Text))

        CMD2.ExecuteNonQuery()

        ApoSYSconn.Close()

        MsgBox("تم الحفظ")
    End Sub