在窗体上拉一个DataGrid控件,再用下列代码测试
Dim conn As New ADODB.Connection
Dim rss As New ADODB.Recordsetconn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" & App.Path & "\gcmc1.DBF"
conn.Open
rss.Open "select * from gcmc1", conn, 1, adLockOptimistic
Set DataGrid1.DataSource = rss