[Mido9]

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل لدي كود عند عمل استعراض له يظهر لي خطأ

هذا هو الكود

PHP كود :

Dim saveintoo As New OleDb.OleDbCommand
        Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
        Dim connn As New OleDb.OleDbConnection(constrr)
        Dim DataSett As New DataSet
        Dim SQLstrr As String
        SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
        connn.Open()
        Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
        dataadapterr.Fill(DataSett, "factor_daora")
        ComboBox21.Items.Clear()
        For X As Integer = 0 To DataSett.Tables("factor_daora").Rows.Count - 1
            ComboBox21.Items.Add(DataSett.Tables("factor_daora").Rows(X).Item("factor_daora_id"))
        Next
        TextBox9.Text = ComboBox21.Items.Count

        If ComboBox21.Items.Count = 1 Then

            TextBox21.Text = ComboBox21.Items(0).ToString '(الترتيب - 1)' 


            ' Show First Resulte

            Dim saveinto5 As New OleDb.OleDbCommand
            Dim constr5 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn5 As New OleDb.OleDbConnection(constr5)
            Dim DataSet5 As New DataSet
            Dim SQLstr5 As String
            SQLstr5 = "SELECT * From factor_daora Where  factor_daora_id=('" & TextBox21.Text & "')"
            conn5.Open()
            Dim dataadapter5 As New OleDb.OleDbDataAdapter(SQLstr5, conn5)
            dataadapter5.Fill(DataSet5, "factor_daora")
            If Me.BindingContext(DataSet5, "factor_daora").Count = 0 Then
                MsgBox(" لا يوجد عامل بهذا الاسم")
                conn5.Close()
            Else
                ComboBox11.DataBindings.Add("text", DataSet5, "factor_daora.factor_daora_no3")

            End If




            'combobox end
        End If 


وهذا هو الخطأ الذي يظهر

PHP كود :

Data type mismatch in criteria expression. 


وجزاكم الله خيرا