来看下呀！看下能不能帮下兄弟人呆

兄弟们有帮我的吗
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\yygl.mdb"
CenterForm Me
txtUser.Enabled = False
txtMm.Enabled = False
CmbQx.Enabled = False
blnEdit = False
sql = "SELECT * FROM user ORDER BY ID"
Set reUser = dbYY.OpenRecordset(sql)
Dt1.DatabaseName = DBName
Dt1.RecordSource = sql
Dt1.Refresh
If reUser.RecordCount = 0 Then Exit Sub
Grid1.ColWidth(0) = 0
Grid1.ColWidth(2) = 0
Grid1.ColWidth(4) = 0
Tlbar.Buttons(3).Enabled = False
Tlbar.Buttons(4).Enabled = False
Tlbar.Buttons(5).Enabled = False
Data1.DatabaseName = App.Path & "\yygl.mdb"
CenterForm Me
Set reQy = dbYY.OpenRecordset("SELECT * FROM ORDER BY ID")
Dt1.DatabaseName = DBName
Dt1.RecordSource = "SELECT * FROM Timing ORDER BY ID"
Dt1.Refresh
MSFlexGrid1.ColWidth(0) = 0
MSFlexGrid1.ColWidth(1) = 400
MSFlexGrid1.ColWidth(2) = 2000
MSFlexGrid1.ColWidth(3) = 810
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.ColWidth(5) = 800
MSFlexGrid1.ColWidth(6) = 1200
MSFlexGrid1.ColWidth(7) = 1200
MSFlexGrid1.ColWidth(8) = 1500
MSFlexGrid1.ColWidth(9) = 1500
Tlbar.Buttons(3).Enabled = False
Tlbar.Buttons(4).Enabled = False
Tlbar.Buttons(5).Enabled = False
Lab = reQy.RecordCount
cmbUser.Enabled = False
Monday.Enabled = False
Tuesday.Enabled = False
Wednesday.Enabled = False
Thursday.Enabled = False
Friday.Enabled = False
Saturday.Enabled = False
Sunday.Enabled = False
txtMc.Enabled = False
txtJc.Enabled = False
txtDz.Enabled = False
txtCz.Enabled = False
txtYb.Enabled = False
txtDh.Enabled = False
txtYj.Enabled = False
txtWz.Enabled = False
这里调试错误 Set reQy = dbYY.OpenRecordset("SELECT * FROM ORDER BY ID")