Dim objConn As New System.Data.OleDb.OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
objConn = New OleDbConnection(strConnString)
objConn.Open()
Dim strSQL As String
strSQL = "SELECT * FROM member WHERE Username = '" & strUser & "' AND Password = '"& strPassword &"' "
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
IF dt.Rows.Count > 0 Then
IF dt.Rows(0)("User") = "ADMIN" Then
'** for Admin
Else
'** For User
End IF
Else
' Login Failed
End IF
dtAdapter = Nothing
objConn.Close()
objConn = Nothing