问题已经解决,使用的ADO,文件DSN,谢谢amstar
Connect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Print"
chkrs.Open "query", Connect, adOpenStatic, adLockOptimistic
For i = 0 To chkrs.Fields.Count - 1
List1.AddItem chkrs.Fields(i).Name
Next i
If Check
dim Connect as new adodb.connection,i as long
dim chkrs as new adodb.recordset
connect.open "pro....."
Chkrs.Open "select * from [dBASE III;DATABASE=C:\SampleUpdate\].[sample.DBF]", Connect, adOpenStatic, adLockOptimistic
for i=0 to chrs.fields.count-1
msgbox chkrs.fields(i).name
next i