codice:
Sub nomechevuoi(sender as object, e as eventargs)
Dim logConn as new OleDbConnection

With logConn
.connectionstring = 'metti la stringa di connessione
End With

Dim Sql as string
Sql = "SELECT contatore, cognome, nome, password FROM utenti WHERE cognome = '" & surname & "'", nome = '" & name & "'"

Dim logAdapter as new OleDbDataAdapter(sql, logconn)
Dim logDs as DataSet = New DataSet()
logAdapter.Fill(logDs, "utenti")

dim utentetrovato as integer
utentetrovato = LogDs.Tables("utenti").Rows.Count

if utentetrovato = 0 then
response.redirect("a_cagare.html")
else
session("login") = 1
sessione("user") = LogDs.Tables("utenti").rows(0)("Contatore")
response.redirect("pagina.aspx")

logConn.close
End Sub
fatta al volo
non ho nemmeno controllato se ci sono errori. cmq
vedi te ciao