[تنبيه - عنوان غير مناسب : ]بعض الاسائلة ممكن الايجابة

Dim mypath = Application.StartupPath & "\password.mdb"

Dim Password = ""

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Documents and Settings\Owner\My Documents\OLEDB\password.mdb")

Dim cmd As OleDbCommand

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

Dim sql = "SELECT Username,Password FROM Password WHERE Username = '" & txtUsername.Text & "' AND Password = '" & txtPassword.Text & "'"

cmd = New OleDbCommand(sql, conn)

Dim dr As OleDbDataReader = cmd.ExecuteReader

Try

conn.Open()

Catch ex As InvalidOperationException

MsgBox(ex.Message)

End Try

Try

If dr.Read = False Then

MessageBox.Show("تأكد من البيانات المدخله...")

Else

MessageBox.Show("تم الدخول...")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

If conn.State <> ConnectionState.Closed Then

conn.Close()

End If

Dim form As New Form2

form.Show()

End Sub