data type mismatch in criteria expression access - نسخة قابلة للطباعة

كود :
       If MsgBox("هل تريد حفظ بيانات هذا السجل فعلا ؟", MessageBoxButtons.YesNo + MsgBoxStyle.DefaultButton2 + MessageBoxIcon.Question + MsgBoxStyle.MsgBoxRight, "حفظ البيانات") = vbNo Then Exit Sub



        ' التأكد من تعبئة كل الحقول

        If txtmynumber.Text = "" Then

            MsgBox("اكتب رقم المعاملة ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "رقم المعاملة") : txtmynumber.Select() : Exit Sub

        ElseIf TextBox1.Text = "" Then

            MsgBox("اكتب الرقم الوظيفي ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "الرقم الوظيفي") : TextBox1.Select() : Exit Sub

        ElseIf TextBox2.Text = "" Then

            MsgBox("اكتب اسم الموظف ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "اسم الموظف") : TextBox2.Select() : Exit Sub

        ElseIf TextBox6.Text = "" Then

            MsgBox("اكتب نوع العطل ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "نوع العطل ") : TextBox6.Select() : Exit Sub

        ElseIf TextBox4.Text = "" Then

            MsgBox("اكتب وصف العطل  ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "اكتب وصف للعطل ") : TextBox4.Select() : Exit Sub

        ElseIf TextBox5.Text = "" Then

            MsgBox("اكتب تقرير الفني ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "تقرير الفني  ") : TextBox5.Select() : Exit Sub

        ElseIf TextBox3.Text = "" Then

            MsgBox("اكتب تقرير المسؤل المباشر ", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "تقرير المسئول المباشر  ") : TextBox3.Select() : Exit Sub



        End If



        Dim CmdInsert As New OleDbCommand

        CmdInsert.Connection = Con



        '========================================================================

        Dim A1 As DateTime = DateTimePicker1.Text.Trim

        Dim A2 As String = cmpDepartment.Text.Trim

        Dim A3 As Int16 = TextBox1.Text.Trim

        Dim A4 As String = TextBox2.Text.Trim

        Dim A5 As Int16 = txtmynumber.Text.Trim

        Dim A6 As String = cmpSection.Text.Trim

        Dim A7 As String = TextBox6.Text.Trim

        Dim A8 As String = TextBox4.Text.Trim

        Dim A9 As String = TextBox5.Text.Trim

        Dim A10 As String = TextBox3.Text.Trim



        CmdInsert.CommandText = $" Insert Into maintanice (Damage_Date, 

                                   MyDepertment, Emp_ID, Emp_Name, tNumber , 

                                   MySection, Damage_Type, Damage_Des, 

                                   tecnical_Report, Headsection_Report  ) values 

                                ( #{A1}# ,'{A2}',  {A3},  '{A4}', '{A5}' ,  

                                  '{A6}' ,'{A7}', '{A8}', '{A9}', '{A10}' ) "



        If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        CmdInsert.ExecuteNonQuery()

        Con.Close()

        '===================================================================

        MsgBox(" تم إضافة البيانات بنجاح ", MsgBoxStyle.Information, "إضافة")



        CmdInsert = Nothing