Puoi scrivere:
codice:
dim Conn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=tuodatabase.mdb") 
dim objCmd as new OleDbCommand("select * from utenti where nomeutente='"+nomeutente+"'",objConn) 
Dim Reader as OleDbDataReader
objConn.Open
MyReader = objCmd.ExecuteReader(CommandBehavior.SingleResult)
if (Reader.Read()) then
if Reader("nome")=nomeutente and reader("password")=password then
' eventi se l'utente è autenticato
end if
objConn.Close
...
Ciao
'Alchimista'