Dim dbs As Database
Set dbs = OpenDatabase("C:\Users/Datenbank_Moebel.accdb")
dbs.Execute " INSERT INTO t_Bestand " _
& "SELECT DISTINCT Ast " & "FROM [t_Bestand]" & "WHERE [Ast] = '" & "001" & "'"
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Artikel = '" & Me.Artikel & "'" & _
"WHERE Artikelnummer = " & 0
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Menge = " & Me.Menge & _
" WHERE Artikelnummer = " & 0
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Artikelnummer = " & Me.Artikelnummer & _
" WHERE Artikelnummer = " & 0
dbs.Close