以下是我的程式碼 Private Sub SSTab1_Click(PreviousTab As Integer) Set db1 = OpenDatabase("c:\db1.mdb") Set rs = db1.OpenRecordset("Select * From A1") On Error GoTo 1 While Not rs.EOF List1.AddItem rs!Number & rs!Year & rs!CAR <----number 跟 year , car都是我資料庫裡面的欄位 rs.MoveNext Wend Exit Sub 1: End Sub 可是卻出現錯誤.... 我使用VB6.0 還有office-XP的ACCESS 希望有人能指導我 怎麼把資料庫各欄位的資料 全部顯示在VB6.0的LIST上

@@ 好多年沒有碰vb 忘光了… 你的問題是「如何在 class="code"> 一、是否有宣告 Dim db1 As DAO.Database Dim rs As DAO.Recordset 二、是否於「專案-->設定引用項目-->勾選 Microsoft DAO 3.6 Object Library 物件」 ABSee數位相機族群的專業網站，免費1G 網路相簿 http://absee.com.tw/law.asp?uRef=15360