将原语句变更一下

原：

ADO.RunSQL "Delete FROM [tbl进度结算明细表] Where [月报单号]=" & SQLText(Me.sfrList![月报单号])

新：

strSQL = "Delete FROM [tbl进度结算明细表] Where [月报单号]=" & SQLText(Me.sfrList![月报单号])
   
    If DAORunSQL(strSQL) Then
        RequeryDataObject Me.sfrList
    End If

原理为删除语句执行完毕后刷新。