还是不懂！！！如何在combo1中显示数据库中表名？？？不用list属性！！！1

Question

你要实现的是否就是将数据库中所有的表名添加到Combo1组合框？

Answer 1

是啊  不过我和朋友已经解决了  
'请引用 c:\program\common file\system\ado\Msadox.dll
'引用active data object 2.0 ,工程-引用-Private Sub Form_Load()
Dim cnn As New Connection
Dim cat As New Catalog
Dim tbl As Tablecnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=linshi.mdb"
Set cat.ActiveConnection = cnnFor i = 0 To cat.Tables.Count - 1
Set tbl = cat.Tables(i)
Debug.Print tbl.Name & vbTab & tbl.Type
Next
    
End Sub

Answer 2

debug.print的前4个是系统表
以后的才是你自己建立的库表

Answer 3

debug.print
*******************************
MSysACEs    SYSTEM TABLE
MSysObjects SYSTEM TABLE
MSysQueries SYSTEM TABLE
MSysRelationships   SYSTEM TABLE
职工工资    TABLE
selectfrom职工工资  VIEW