Delete med VBA

JAg försöker att köra så här:

Dim dbs As Database
Dim sqlString As String

Set dbs = CurrentDb
    sqlString = "DELETE * from CD_Skivor where CD_Id = " & Me.CD_Id
      dbs.Execute (sqlString)
Set dbs = Nothing

Jag får då ett error som pekar på den rad där jag dimmar dbs.
Egendefinierad typ har inte definierats.
Om jag därimot bortkommentera AS Database, så händer ingenting.

Jag antar att jag är ute och cycklar, men hur bör jag skriva?