Private Sub Form_load()
Dim rs As New Recordset
Dim con As New Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\dealmore\data\data.mdb"
rs.Open "select * from products", con, 1, 1
Set MSFlexGrid1.DataSource = rs '执行到这句时提示出错:对象变量或with块变量未设置
End Sub