With n_belegdb
     .Provider = "Microsoft.ACE.OLEDB.12.0 "
   .ConnectionString = "C:\DB\beleg.accdb"
   .Mode = adModeShareDenyNone
   .Open
End With

n_belegstr = "select * from buchung where Belegnr = 1"
If n_belegre.State = adStateOpen Then
   n_belegre.Close
End If
With n_belegre
    .ActiveConnection = n_belegdb
    .Source = n_belegstr
    .Filter = ""
    .LockType = adLockOptimistic
    .CursorLocation = adUseClient
    .Open
End With
 
preis = Trim$((vkpreis * 100) / (100 + info(11)))
 
n_belegre.AddNew
    n_belegre("Belegnr") = belegrgnr
    n_belegre("Bumonat") = Format(Now, "mm")
     n_belegre.Fields("netto").Value = preis
    n_belegre("Konto") = "405090"
    n_belegre("Position") = "1"
    n_belegre("AG") = "N"
    n_belegre("Jahr") = Format(Now, "YYYY")
    n_belegre("Steuerzeichen") = "A9"
    n_belegre("Steuer") = info(11)
    n_belegre("kst") = info(10)
    n_belegre.Update
    n_belegre.Close

n_belegstr = "select * from buchung where Belegnr = 1"