请大家不要回避这个问题,高手快进来吧!!

Question

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & _
App.Path & "\blue.mdb"
Adodc1.RecordSource = "select * from dedressbook"
Set DataGrid1.DataSource = Adodc1End Sub

Answer 1

代码本身肯定没毛病
要看报什么错Private Sub Command1_Click()
'----------------Same defined--------------
On Error GoTo AddErr
Dim loop1, loop2, counter As Integer
Dim str As String
Dim strCnn As String
Dim strCmd As String
Dim cnnUsersDb As ADODB.Connection
Dim rstPermissionTable As ADODB.Recordset
    
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & App.Path & "\DataBase\UsersDB.mdb;" & _
                        "Persist Security Info=False"
    Set cnnUsersDb = New ADODB.Connection
    cnnUsersDb.Open strCnn
    Set rstPermissionTable = New ADODB.Recordset
    strCmd = "select PermissionTable.* from PermissionTable"
    rstPermissionTable.Open strCmd, cnnUsersDb, adOpenStatic, adLockReadOnly
'----------------Same defined--------------Adodc1.ConnectionString = strCnn
Adodc1.RecordSource = strCmd
Set DataGrid1.DataSource = Adodc1'------------------Same defined------------
    rstPermissionTable.Close
    cnnUsersDb.Close    Exit Sub
AddErr:
    MsgBox Err.Description
'------------------Same defined------------
End Sub刚试了一下，一切OK^_^

Answer 2

set datagrid1.datasource = adodc1
datagrid1.rebind