Private Sub Form_Load()
  Dim strSQL As String
  Dim rsRec As New ADODB.Recordset
 
  Set mobjGrid = Me.grdRechnung.Object
  Set mobjCon = dbOpenSQLDB(USERNAME, PASSWORD, DATABASENAME, SERVERNAME)
 
  strSQL = "SELECT TempArtikel.ArtikelID, TempArtikel.lngInventarnummer AS" & _
    "InvNr, TempArtikel.intUnterartikelNr AS UANr," & _
    "TempArtikel.strArtikelbezeichnung AS Artikelbezeichnung," & _
    "TEMPArtikel.dblLiqWert AS Liq, TempRechnung.dblNettoEinzeln AS [Netto" & _
    "Einzeln], TempRechnung.intAnzahl AS Anz, TempRechnung.intMaxAnz AS [Anz" & _
    "Max], TempRechnung.dblNettoGesamt AS [Netto Gesamt]," & _
    "TempRechnung.dblUstArtikel AS [USt Gesamt], TempRechnung.dblBruttoEinzeln" & _
    "AS [Brutto Einzeln], TempRechnung.dblBruttoGesamt AS [Brutto Gesamt]," & _
    "TempRechnung.dblAufgeldBrutto AS [Aufgeld Brutto]," & _
    "TempRechnung.dblTransportBrutto AS [Transport Brutto]," & _
    "TempRechnung.intAufgeld, TempRechnung.intUSt," & _
    "TempRechnung.dblArtikelGesamt AS Gesamt " & _
           "FROM TempArtikel INNER JOIN TempRechnung ON TempArtikel.ArtikelID =" & _
           "TempRechnung.ArtikelID " & _
           "ORDER BY TempArtikel.lngInventarnummer," & _
           "TempArtikel.intUnterartikelNr"
 
  rsRec.CursorLocation = adUseClient
  rsRec.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
  mobjGrid.CreateClone = True
  Set mobjGrid.Recordset = rsRec
  rsRec.Close
  Set rsRec = Nothing
 
  With mobjGrid
    .LockUpdate True
 
    'Caption
    .CaptionVisible = True
    .Caption = "Warenkorb"
    .CaptionFont.Name = "Arial"
    .CaptionFont.Bold = True
    .CaptionFont.Size = 20
    .CaptionForeColor = WEISS
    .CaptionBackColorFrom = TERTANBLAU
    .CaptionBackColorTo = TERTANBLAU
    .CaptionHeight = 30
 
    'Header
    .ColumnHeaderFont.Name = "Arial"
    .ColumnHeaderFont.Bold = True
 
    'Scrollbar
    .ScrollBtnForeColor = WEISS
    .ScrollBarBackColor = WEISS
    .ScrollBtnBackColor = TERTANBLAU
 
    .AllowDelete = False
    .AutoEdit = True
    .AutoInsert = False
    .BackColorOdd = "15194520"
    .AutoUpdate = True
    .AllowColumnSizing = False
    .AllowRowSizing = False
    .AllowColumnReorder = False
    .AllowColumnClick = True
    .AutoSort = True
    .AllowMultiSelect = False
    .AllowEdit = True
    .RowHeight = 8
 
    'Spaltenkofiguration
 
    .FilterVisible = False
    .LockUpdate False
    .Refresh
  End With
End Sub