SQLString = "SELECT GroupID FROM TblArtikels WHERE ArtikelID  =" & Val( _
  ArtikelID)
 
Set Cn = New ADODB.Connection
  Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
  Cn.CursorLocation = adUseClient
  Cn.Open App.Path & "\Artikel.MDB"
  Set Rs = New ADODB.Recordset
  Rs.CursorType = adOpenStatic
  Rs.LockType = adLockOptimistic
    Rs.Open SQLString, Cn
                            If Rs.EOF Then
                            Rs.AddNew
                            Else
                            Rs!GRoupID = "7"  'neue GroupID
 
                            Rs.Update
                            End If
 
 
 
        Rs.Close
        Set Rs = Nothing
        Cn.Close
        Set Cn = Nothing