DataGrid控件连接的问题

Question

我在程序中有如下代码，便在连接后，数据控件DataGrid1不出现表“XueYuan”的数据，程序不出现任何错误提示，请教各位高手是不是代码有问题？如何解决？
    Dim Cnn As String
    Set DataCnn = New ADODB.Connection
    Cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\SYS32\FenChe.mdb" & ";Persist Security Info=False"
    DataCnn.Open Cnn
    Set DataRst = New ADODB.Recordset
    Set DataRst.ActiveConnection = DataCnn
    With DataRst
        .Source = "FenChe"
        .CursorLocation = adUseServer
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With
    Set DataGrid1.DataSource = DataRst
    DataGrid1.DataMember = "XueYuan"

Answer 1

Dim DaoS As Database
Dim DaoA As Recordset
Set DaoS = OpenDatabase(App.Path & "\SYS32\FenChe.mdb")
Set DaoA = DaoS.OpenRecordset("XueYuan", dbOpenDynaset)
 然后的事情你知道了!! 你的情况这样一来简单

Answer 2

Public cnn As ADODB.Connection
Public DataRstAs ADODB.Recordset
Set cnn = New ADODB.Connection
    cnn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
     "dbq=" & App.Path & "\FenChe.mdb"
       cnn.ConnectionTimeout = 30
    cnn.CursorLocation = adUseClient
    cnn.OpenDataRst.open "select * from 表名 where 条件",cnn,adOpenDynamic, adLockPessimisticSet DataGrid1.DataSource = DataRst
    End Sub
  条件可有可无。