[asemshahen5]

إستخدم داتا تابل بدل الداتا سيت مع مراعاة وضعه في مديول ليتم استخدامه في أكثر من فورم :

PHP كود :

   Public Function CheckCode(t1 As String, code As String, t4 As String) As Boolean
        Dim dt As New DataTable
        Dim SqlStr As String = "select * from " & t1 & " where " & code & " ='" & t4 & "'"
        If Con.State = ConnectionState.Closed Then Con.Open()
        Dim adp As New SqlClient.SqlDataAdapter(SqlStr, con)
        adp.Fill(dt)
        If dt.Rows.Count = 0 Then
            MsgBox("الكود غير موجود")
            CheckCode = False
        Else
            MsgBox("الكود موجود")
            CheckCode = True
        End If
        If Con.State = ConnectionState.Open Then Con.Close()
        Return CheckCode
    End Function