Dim objConn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\clienti\saporiti\gestione.mdb")
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


ops...
mi ero dimenticato una tua istruzione con il dataadapter
questa dovrebbe andare........

SB