Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim sql1, hxcq As String
cn1.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=d:\dy;SourceType=DBF"
cn1.Open
cn1.Execute ("select zjzh,sum(jsxf) as jsxf into table 1 from lscj group by zjzh")
测试运行不报错,但是1.dbf就是生成不出来.谁能帮忙看看问题出来那里