listbox 不能够连接数据库，只能先读出数据库数据，再添加到list里面,建议你用MSHFlexGrid控件'MSHFlexGrid操作参考:Private Sub LoadMSHFlexGridData()
Dim cn
As New ADODB.Connection, rs As New ADODB.Recordset
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\数据库.mdb;User Id=admin;Password=;"
...
