'Open the connection
Private mConn As Connection
Private XX As String
XX="PROVIDER=MSDataShape;"
XX= XX + "Data PROVIDER=Microsoft.Jet.OLEDB.4.0;"
XX= XX + "Data Source=D:\Documents and Settings\廖丹青\桌面\台账.mdb;"
mConn.Open "XXXXXX"

在Form_Load事件中打开连接并用jdqk表中的数据填充ListView控件。记住修改mConn的Open方法中的连接字符串以匹配你的设置。
Private Sub Form_Load()
    Dim rs As Recordset
    Dim NewItem As ListItem
   
    'open the connection
    Set mConn = New Connection
    mConn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Project\db\Account.mdb"
   
    'fill the list
    Set rs = mConn.Execute("jdqk", , adCmdTable)
    Do Until rs.EOF
        Set NewItem = listAuthors.ListItems.Add(rs("dwbh"), , rs("dwmc"))
        NewItem.SubItems(1) = rs("jzcqtzzms")
        NewItem.SubItems(2) = rs("nf")
        NewItem.SubItems(3) = rs("jd")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub
特别注意以下的语句
Set NewItem = listAuthors.ListItems.Add([Index],[Key],[Text],[Icon],[SmallIcon]) As ListItem

ListItem 对象，ListItems 集合的语法包含下面部分：

Index或者Key都能将表中的关键字作为赋值对象，但要区别是字符型还是数字型，否则很可能报错。一定要匹配，我在此栽过跟头。切忌！！