Dim SQL As String
Dim ConnString as string

ConnString= "DRIVER={MySQL ODBC 3.51 Driver};_
    SERVER=localhost;DATABASE=DatabaseName;_
    UID=UserID;PWD=thePassword;OPTION=35"
       
Dim Conn As New System.Data.Odbc.OdbcConnection(_
     _ConnString)

SQL = "SELECT * FROM TableName"
Conn.Open()

Dim Cmd As New System.Data.Odbc.OdbcCommand(SQL, Conn)
Cmd.CommandTimeout = 20

Dim Reader As System.Data.Odbc.OdbcDataReader
Reader = Cmd.ExecuteReader()

While (Reader.Read)
        Response.Write(Reader("FieldName") + "<br>")
End While

Reader.Close()
Cmd.Dispose()
Conn.Close()
Conn.Dispose()