vb e acess :(

estou a fazer um projecto de VB com acess mas kd tento adicionar um registo a base de dados da-me um erro--x--este e o codigo: If alterar = False Then If txtCD.Text = "" Then MsgBox "Introduza o nome do CD" Else adicionar.AddNew adicionar("CodCD") = Val(lblcodcd.Caption) adicionar("NomeCD") = txtCD.Text adicionar("Artista") = txtArtista.Text adicionar("Editora") = txtEditora.Text adicionar("Ano") = mskAno.Text adicionar.Update limpar lblcodcd.Caption = Val(lblcodcd.Caption) + 1 txtCD.SetFocus End If Else--x--da-m um erro na linha "adicionar.AddNew".o erro é:Run-time error '424':Obeject requiredse alguem poder explicar como fazer agradecia.. mt urgente.. obrigado