Innanzitutto il comando "ExecuteAdapter" non mi sembra che esista e poi mi pare che tu faccia un po' di confusione tra DataAdapter e DataReader. Devi scegliere quale usare.
Per il DataAdapter puoi fare così (usando una dataTable come contenitore dei dati, oppure se vuoi puoi usare al posto un DataSet):
codice:
Dim conn As New Odbc.OdbcConnection(" *** stringa di connessione *** ")
Dim DA As Odbc.OdbcDataAdapter
Dim DT As DataTable
Dim cmd As New Odbc.OdbcCommand
'Non hai bisogno di fare conn.open e close per usarlo
DA = New Odbc.OdbcDataAdapter("SELECT * FROM Tabella", conn)
DA.Fill(DT)
For Each r As DataRow In DT.Rows
'ciclo il datatable per fare qualcosa ....
response.write(r.Item("nome_colonna"))
Next
Per il DataReader invece:
codice:
Dim conn As New Odbc.OdbcConnection(" *** stringa di connessione *** ")
Dim DR As Odbc.OdbcDataReader
Dim cmd As New Odbc.OdbcCommand
conn.Open()
cmd = New Odbc.OdbcCommand("SELECT * FROM Tabella ", conn)
DR = cmd.ExecuteReader
While DR.Read()
'Leggi i dati nel datareader
End While
DR.Close()
conn.Close()