Lille sql fejl

Hvorfor virker slet funktionen ikke?~)

Private Sub Media_AfterUpdate()
On Error GoTo err_media
Dim sql As String

If Me.Media = "tilføj" Then
Me.var1 = InputBox("Indtast media, som skal tilføjes")
sql = "INSERT INTO tblMedia ( Media )" & _
"SELECT [forms]![frmAlbum]![var1];"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Me.Media.Requery
Me.Media = Null
End If

If Me.Media = "slet" Then
Me.var1 = InputBox("Indtast media, som skal slettes")
sql = "Delete tblMedia.Media" & _
"FROM tblMedia" & _
"WHERE (((tblMedia.Media)=[forms]![frmalbum]![var1]));"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Me.Media.Requery
Me.Media = Null
End If

err_media:
End Sub