Winforms Mschart control.columnlabel未使用VB6从Ado检索数据

我是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

私有cn作为ADODB.Connection
私有rsProducts作为ADODB.Recordset
专用子表单_加载（）
Set cn=New ADODB.Connection
MSChart1.ToDefaults
Const ConnectionString=“MySQL ODBC 5.1驱动程序；服务器=10.237.2.152；数据库=monitoring；UID=root；PWD=c0k3float；DSN=itemearv；”
'打开连接。
cn.开放连接字符串
Dim strQuery作为字符串的SQL查询字符串。
'创建仅检索四个字段的查询。
'strQuery=“选择产品名称、单价、，
'单位库存，单位从产品订购'
strQuery=“从test.product中选择值”
Set rsProducts=New ADODB.Recordset
'打开记录集。
rsProducts.CursorLocation=adUseClient
rsProducts.openstrquery，cn，adOpenKeyset
'将数据源设置为记录集。
使用MSChart1
.ShowLegend=True
Set.DataSource=rsProducts
.ColumnCount=rsProducts.RecordCount
.RowCount=1
.RowLabel=“测试”
以
作为整数的Dim i
i=1
当我更改
选择
命令以包括
名称
：

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

更改
选择
命令以包括
名称
：

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

正确，选择了表测试中的“值”字段，但调用了“名称”字段返回数据，并导致错误，因为返回的数据中不存在名称。正确，选择了表测试中的“值”字段，但调用了“名称”字段返回数据，并导致错误，因为返回的数据中不存在名称。