Secondo me ti complichi un pò la vita.
Innanzi tutto anzichè utilizzare un dataset ti conviene utilizzare l'oggetto datareader (l'oggetto dataset va utilizzato solo in casi particolari); è inutile l'utilizzo dell'array poichè puoi verificare direttamente se il recordset è vuoto o no


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)
objconn.open
sql="select * from uspass where usname= '" & tbusername.text & "' and tabluspass='" & tbpassword.text & "'"
Dim objCommand as New OleDbCommand(sql , objconn)
Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader
if objDataReader.read
response.write("connesso")
else
response.write("non connesso")
end if
objconn.close


puoi fare una cosa del genere
come vedi il codice si riduce di tanto ed impieghi meno risorse.

SB