代码错在哪里?refresh方法的Iadodc失败?
Private Sub Form_Load()Dim mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpaht + "\"
mlink = "Provider = Microsoft.Jet.OLEDB.4.0; Data source= " + mpath + "keshe\rsgl.mdb"
Adodc1.ConnectionString = mlink
= adCmdUnknown
Adodc1.RecordSource = "select * from 操作日志 "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub