what else?
Public Sub DeleteRecords()
Dim td As dao.TableDef, db As dao.Database, rs as dao.recordset
Set db = CurrentDb
For Each td In db.TableDefs
If Left(td.Name, 3) = "raw" Then
if dcount("*",td.name,"[fldSeries]='" & [forms]![frmMain]![txtSeries] &"'")>0 then
db.Execute "delete * from [" & td.Name & "] where [fldSeries]='" & [forms]![frmMain]![txtSeries] &"'"
end if
End If
Next
End Sub