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