[bumb]

السلام عليكم

الكود معمول للـ SQL انا عدلت عليه بس يوقف عند الداتا ريدر وبالتحديد عند السطر التالي :

PHP كود :

Dim dr As OleDbDataReader = cmd.ExecuteReader() 


ارجو اصلاح المشكله
وهذا الكود بالكامل :

PHP كود :

Private Sub txtCRN_Validated(sender As Object, e As EventArgs) Handles txtCRN.Validated

        Dim cmd As New OleDbCommand
        ApoSYSconn.Close()
        ApoSYSconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
        cmd.Connection = ApoSYSconn
        ApoSYSconn.Open()
        cmd.CommandText = "Select * from tblCustomers where CivilRegNum=txtCRN"

        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        If dr.HasRows = True Then
            MessageBox.Show("هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            ApoSYSconn.Close()

        End If

    End Sub 


تحياتي لكم