用vb连接foxpro的问题!

[gx_sunny]

各位高手,我现在想在vb中连接foxpro的数据库,我不想通过data控件去连接,需要通过代码连接,并且可以向其进行数据操作!希望有朋友能提供点源码,不甚感激!!!!!1

[guest]

dim dat as database
dim r as recordset
set dat=opendatabase(app.path & "\fox",false,false,"foxpro 2.5")
set r=dat.openrecordset("select * from 数据表名")