怎样用VB创建dbf临时表

[waywin]

我想用VB从一个Dbf表中的到某些字段得到一个临时表，写法如下：
Dim DbWork As Workspace
Dim DbsDbf As Database
Dim RstCur1, RstCur2 As Recordset
Dim StrCur1, StrCur2 As String

Set DbWork = DBEngine.Workspaces(0)
Set DbsDbf = DbWork.OpenDatabase(Trim(Text1.Text), False, True, "FOXPro 3.0")
'从表中建立Recordset对象
StrCur1 = "SELECT * into 表1 from 表2 where "
Set RstCur1 = DbsDbf.Execute(StrCur1, dbFailOnError)
结果总是出现错误：“缺少函数或变量！”
另外，我把select into 语句换成普通的select语句，可是还是一样！
请问各位问题出现在哪里，难道dbf的database对象不支持Execute方法？

[bucher]

"SELECT * into 表1 from 表2 where "后面缺少条件

[waywin]

对不起，这是我的笔误，
VB编译错误出现在Execute上