[حريف برمجة]

انت حاط استعلامين بينما واحد يكفي ،،
استبد الكود كامل بهذا الكود

كود :

Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
        If txtSearch.Text = "" Then
            Dim Msg As String = "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtSearch.Focus()
            Exit Sub
        End If

        Try
            CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum like '%" & txtSearch.Text & "'", ApoSYSconn)
            Dim da As New OleDbDataAdapter
            da.SelectCommand = CMD
            Dim dt As New DataTable
            da.Fill(dt)
            If dt.Rows.Count = 0 Then
                MsgBox("لا يوجود سجلات لعملية البحث")
            Else
                txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
                txtFullName.Text = dt.Rows(0)("FullName").ToString
                txtMobile.Text = dt.Rows(0)("MobileNum").ToString

                dgv1.DataSource = dt
                dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            End If
          
            'txtSearch.Text = ""
        Catch ex As Exception
            'MessageBox.Show(ex.Message)
        End Try
    End Sub