假设rb_1为数据记录对象,每列都应为数据型字段，则可以通过以下方法来解决： 
    MSChart1.ColumnCount = rb_1.Fields.Count 
    For i = 1 To = rb_1.Fields.Count 
     MSChart1.Column = i 
     MSChart1.Data = rb_1.Fields(i-1) 
     MSChart1.ColumnLabel = rb_1.Fields(i).name & " " & Int(rb_1.Fields(i-1) / number * 100) & "%" 
    Next i 
<END>