一个数据库转换问题

Dim db As Database
    Set db = OpenDatabase("gz.mdb")
    db.Execute ("SELECT * INTO [dBASE 5.0;DATABASE=" + App.Path & "\Backup\gz.mdb" + "].[" & gz_table + ".DBF] FROM [" & gz_table + "]")
这是我原来用按钮实现的方法，可是在set这句提示：不可识别的数据库格式帮帮我，怎么改？？ 把access转换成dbf