Mschart control.columnlabelはVB6を使用してAdoからデータを取得しません。

Question

私はVB6を初めて使用しており、データベースからデータを取得するMSChart.columnlabelに問題があります。これは製品テーブルに名前フィールドがあります。問題は、msgboxがポップされたプログラムを実行するたびに、

"要求された名前または序数に対応するコレクションにアイテムが見つかりませんでした。私を助けてください。

Private cn As ADODB.Connection 
Private rsProducts As ADODB.Recordset 
Private Sub Form_Load() 
Set cn = New ADODB.Connection 
MSChart1.ToDefaults 

Const ConnectionString = "MySQL ODBC 5.1 Driver; SERVER=10.237.2.152; DATABASE=monitoring;UID=root;PWD=c0k3float;DSN=itemearv;" 
' Open the connection. 
    cn.Open ConnectionString 
    Dim strQuery As String ' SQL query string. 

    ' Create a query that retrieves only four fields. 
    'strQuery = "SELECT ProductName, UnitPrice, 
    'UnitsInStock, UnitsOnOrder FROM Products" 
    strQuery = "Select value from test.product" 
    Set rsProducts = New ADODB.Recordset 
    ' Open the recordset. 
    rsProducts.CursorLocation = adUseClient 
    rsProducts.Open strQuery, cn, adOpenKeyset 
    ' Set the DataSource to the recordset. 
    With MSChart1 
     .ShowLegend = True 
     Set .DataSource = rsProducts 
     .ColumnCount = rsProducts.RecordCount 
     .RowCount = 1 
     .RowLabel = "TESTING" 
    End With 
    Dim i As Integer 
    i = 1 
    While i <= rsProducts.RecordCount 
     With MSChart1 
      .Column = i 
      .Row = 1 
      .Data = rsProducts!Value 
      .ColumnLabel = rsProducts!Name 
      End With 
      rsProducts.MoveNext 
      i = i + 1 

    Wend 
    Set rsProducts = Nothing 


End Sub 

Answer 1

変更selectコマンドをNameを含める：テーブルテストで

strQuery = "Select value,Name from test.product"