Problem With VBA When Converted To Access 2007

I converted my database to 2007 version and when I tried to execute VBA Module which adds records from one table to another it showed me a mistake (Type mismatch) Here is the code (it worked on 2003 version). Can anybode help me to fix the error?

Function AddBulletin()
Dim st As String
Dim i As Integer
Dim db As Database
Dim Table1 As Recordset
Dim Table2 As Recordset
DoCmd.OpenTable "Today", acNormal, acEdit
DoCmd.ApplyFilter "", "[Today]![F3] Is Null"
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acTable, "Today"
Set db = DBEngine.Workspaces(0).Databases(0)
Set Table1 = db.OpenRecordset("Today", dbOpenDynaset)
Set Table2 = db.OpenRecordset("BULLETINS", dbOpenDynaset)

The mistake appears on the last two rows.
It's probably easy but I cannot find it.