**********y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)******袁兄!小弟还没说完呢?

Question

难道你连一个记录集都不会打开吗？你干脆用一个控件得了， Data 或 AdoData 控件都行。
用控件连接到一个表，把我那段代码中的 "With rst " 改为“With Data1.recordset" 或 "With Adodc1.recordset" 就行了。

Answer 1

我这样写对吗?表名在哪指定啊?帮人帮到底吧?
Dim ADOconn As New ADODB.Connection
Dim RST
ADOconn.Open "DSN=arbsS;UID=arbss;PWD=arbss"
RST = ADOconn.OpenSchema(adSchemaTables)With RST
    For i = 0 To .Fields.Count - 1
        List3.AddItem .Fields(i).Name
        List3.AddItem .Fields(i).Type
        List3.AddItem .Fields(i).ActualSize
        List3.AddItem .Fields(i).DefinedSize
    Next
End With
RST.Close
ADOcnn.Close