运行后提示变量未定义，错误指向：ConnectionString
程序是为了实现从数据库查找符合条件的记录，并把记录条数赋予变量sex1和sex2。
然后在mschart中用饼图画出统计图。
Option Explicit
Private Values(1, 1) As Variant
Dim Sex1 As Integer
Dim Sex2 As Integer
'  载入数据
Private Sub LoadData()
    Values(0, 0) = "男"
    Values(0, 1) = Sex1
    Values(1, 0) = "女"
    Values(1, 1) = Sex2
End Sub
Private Sub Command1_Click()
         With MSChart1
        .Top = 0
        .Left = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
    End With
    '  读取数据
    LoadData
    '  使用MSChart控件显示数据
    MSChart1.ChartData = Values
End Sub
Private Sub Form_Load()
Dim Scan As String
Dim Scan2 As String
Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Scan = "男"
    Scan2 = "女"
    rs.CursorLocation = adUseClient ' 这里不懂
     ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\sAnKes\Desktop\data.mdb;Persist Security Info=False" '
    cn.Open ConnectionString
     rs.Open "select * from 预约者 where 性别 = '" & Scan & "'", cn, adOpenKeyset, adLockOptimistic
     Sex1 = rs.RecordCount
     rs.Close
     rs.Open "select * from 预约者 where 性别 = '" & Scan2 & "'", cn, adOpenKeyset, adLockOptimistic
     Sex2 = rs.RecordCount
End Sub

这是我自己想的笨方法，不知道是否有其他更好的办法呢？谢谢！最好能提供代码！自学VB，底子薄

自己顶一下