我的全过程是这样的:
Private Sub Command1_Click()delect from sfdata where ye<>0End Sub
Private Sub Form_Load()Dim dbase As DatabaseDim rs As RecordsetSet dbase = OpenDatabase(App.Path & "\one5.mdb")Set rs = dbase.OpenRecordset("sfdata ")End Sub