Dim aConnection As OleDbConnection, aCommand As OleDbCommand, aDatareader As OleDbDataReader, aString As String

aConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Pub\wwwroot1\Components\Databases\Account.mdb;User Id=admin;Password=;")

aCommand = New OleDbCommand()

With aCommand

.CommandText = "SELECT * from tblLoggedin where Uid = '" & aUniqueId & "'"

.CommandType = CommandType.Text

.Connection = aConnection

End With

aConnection.Open()

aDatareader = aCommand.ExecuteReader()

While aDatareader.Read

aString = ""

aString = aDatareader.Item("Loggedin")

End While

aDatareader.Close()

aConnection.Close()

-------

Now I revieve the following error: (I just copied the entire error page )

-------

Server Error in '/' Application.

Data type mismatch in criteria expression.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Data.OleDb.OleDbException: Data type mismatch in criteria expression.

Source Error:

An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.

Stack Trace:

[OleDbException (0x80040e07): Data type mismatch in criteria expression.]
    System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandli ng(Int32 hr) +41
    System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleRe sult(tagDBPARAMS dbParams, Object& executeResult) +174
    System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& ; executeResult) +92
    System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavio r behavior, Object& executeResult) +65
    System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(Command Behavior behavior, String method) +112
   System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior) +69
   System.Data.OleDb.OleDbCommand.ExecuteReader() +7
   denheijer.Account.CheckLoggedin(String aUniqueId, String cIp) in C:\Documents and Settings\Floris den Heijer\VSWebCache\DODGER\Components\Classes\Account.vb:32
   denheijer.Start.Page_Load(Object sender, EventArgs e) in C:\Documents and Settings\Floris den Heijer\VSWebCache\DODGER\Sections\Start\Start.aspx.vb:33
   System.Web.UI.Control.OnLoad(EventArgs e) +67
   System.Web.UI.Control.LoadRecursive() +35
   System.Web.UI.Page.ProcessRequestMain() +731