[سعود الشامان]

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


http://vb4arb.com/vb/showthread.php?tid=21817

---

لم تقم بتعريف dt

انظر للسطر الثاني

كود :

Dim da As New OleDbDataAdapter("Select * from Users where UserName = '" & TextBox1.Text & "'and UserPass ='" & TextBox2.Text & "' ", con)
      Dim dt As New DataTable
        da.Fill(dt)

        If dt.Rows.Count > 0 Then

Else

End If