VBA Wildcard

[scubaman]

I have an access table which needs to be renamed and uploaded to an access db every month. See below. I am able to rename the table but the last part (month) of the table changes every month. I there a way to rename this table using a wildcard? "Seizure lines thru *"

Public Function Renametable() As Object
    Dim dbs As Database
    Set dbs = DBEngine.OpenDatabase("c:\seizures\nancy\nancy.mdb")
    Dim tdf As TableDef
    Set tdf = dbs.TableDefs("Seizure lines thru june")
    tdf.Name = "FY09 SASCOM"
    dbs.Close
End Function

Thanks..