Ho scritto una semplice procedura,
l'utente inserisce in un form user e password, onClick viene lanciata la procedura che riporto di seguito, che funziona correttamente.
Volevo sapere come potrebbe essere migliorato il codice, se dimentico qualcosa, o se magari esiste un modo ancora più semplice per fare la stessa cosa.

sub submit (obj as object, e as eventargs)
dim errore as integer

'preparo la connessione ed eseguo la query
Dim objConn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\clienti\saporiti\gestione.mdb")
dim objcmd as new oledbdataadapter ("select * from uspass where usname= '" & tbusername.text & "'", objconn)

'creo e riempo il dataset
dim ds as dataset = new dataset()
objcmd.fill(ds, "tbluspass")

'creo un array e ci metto il risultato della query, la user è chiave primaria, quindi sono sicuro che il dataset sia composto da una sola riga
dim myrow() as datarow = ds.tables("tbluspass").select(nothing, nothing, dataviewrowstate.currentrows)

'verifico che l'array non sia vuoto
if (myrow.length > 0) then

'verifico che la password corrisponda alla username
if (myrow(0)(0)=tbusername.text) and (myrow(0)(1)=tbpassword.text) then
response.write("login effettuato")
else
errore = 1
end if
else
errore = 1
end if

'se una delle condizioni non è verificata...
if errore=1 then
response.write("us o pwd errati")
end if
end sub


mi scuso per la lunghezza del post e ringrazio chiunque voglia darmi qualche consiglio.