我在VFP下运行，使用下列语句，运行不报错，但数据库内容没能添加进去，控件仍显示为空，请各位大大帮看一下，谢谢！！

Public cn As  ADODB.Connection
Public rec As  ADODB.Recordset
cn=Createobject("adodb.connection")
rec =Createobject("Adodb.recordset")
With cn
      .ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ datapath + "db1.mdb;Persist Security Info=False"
.Open
ENDWITH
QuerySQL='SELECT * from data3'
rec.Open(QuerySQL,cn,3,3)

thisform.fpspread1.DataSource=rec
thisform.fpspread1.dataRefresh

thisform.Refresh


[ 本帖最后由 txfantong 于 2010-1-18 17:06 编辑 ]