用Excel宏操作连接access数据库的数据出现错误

gerogeedward

'当窗体加载时，填写listBM这列表的内容
Private Sub UserForm_Initialize()

   '建立数据库的连接
   Set con = New ADODB.Connection
   With con
        .Provider = "microsoft.ace.oledb.12.0"
        .ConnectionString = "data source=" & _
         ThisWorkbook.Path & "\学生管理.accdb"
        .Open
    End With

'提取不重复的部门名称
Dim sql As String     '定义命令字符串变量
sql = "select distinct 部门 from 通讯"
Set rs = New ADODB.Recordset    '创建记录集对象
rs.Open sql, con, adOpenKeyset, adLockOptimistic

'将记录集中的部门名称显示在listBM列表框中
   Dim i As Integer
   With lstBM

        For i = 1 To rs.RecordCount
           .AddItem rs("部门")
         rs.MoveNext             '将记录集中的指针指向下一条记录
        Next i
   End With

End Sub