DataReader

            conn = New OdbcConnection("dsn=poscafe;uid=root;")
            sqlStr = "select * from table_answer"
            conn.Open()
            comm = New OdbcCommand(sqlStr, conn)
            dr = comm.ExecuteReader
            comm.Dispose()
            If dr.Read Then
                MsgBox(dr("answer_id"))
            End If