Dim oRs As DAO.Recordset
 
   On Error GoTo GridMatAng_Laden_Error
 
   sSql = "SELECT * FROM que_MatKalk WHERE ProjektNr=" & l_ProNr
 
   ' Recordset-Objekt erstellen
   Set oRs = DB.OpenRecordset(sSql)
   Do Until oRs.EOF
      Debug.Print oRs!b       ' ****** Hier stimmt alles *********
      oRs.MoveNext
   Loop
   oRs.MoveFirst
 
   With GridMatAng
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
 
      .BackColorEven = g_colG1
      .BackColorOdd = g_colG2
      .ScrollBtnBackColor = g_colS
      .HighlightBackColor = g_colH
      .ColumnHeaderBackColor = g_colC
 
      ' Recordset-Kopie erstellen
      .CreateClone = True
 
      ' Recordset zuweisen
      .Clear True
 
      Set .Recordset = oRs
      ' Zeilenhöhe
      .RowHeight = 20
 
      ' Spaltenbreiten festlegen
      .Columns(1).Width = 200
      .Columns(1).Caption = "Pos"
      .Columns(1).Align = 0
      .Columns(2).Width = 3000
      .Columns(2).Caption = "Bauteil"
      .Columns(3).Width = 800
      .Columns(3).Caption = "Anzahl"
      .Columns(3).DisplayFormat = "#,##0.00 "
      .Columns(4).Width = 400
      .Columns(4).Caption = "Eh"
      .Columns(5).Width = 800
      .Columns(5).Caption = "€ - EK"
      .Columns(5).DisplayFormat = "#,##0.00 € "
      .Columns(6).Width = 800
      .Columns(6).Caption = "€ - VK"
      .Columns(6).DisplayFormat = "#,##0.00 € "
 
      ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
      .ReadColumnWidth "MyApplication", "Grid1", "ColWidths_MatAng"
      ' autom. Sortierung aktivieren
      .AutoSort = True
      .DoSort 1
 
      .AllowMultiSelect = False
      .AllowEdit = False
      .AutoUpdate = False
      .AllowDelete = False
      .AllowColumnSizing = True
      .AllowColumnReorder = True
 
      .LockUpdate False
 
      .Refresh
      ' Zeile selektieren
      .TopRow = .Rows
      ' ursprüngliches Recordset zerstören
      oRs.Close
      Set oRs = Nothing
   End With
 
   AngSummen
   txtSummeAng.Value = intSumme
   txtSummeAngEk.Value = intSumme1
 
 
   On Error GoTo 0
   Exit Sub
 
GridMatAng_Laden_Error:
 
   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure" & _
     "GridMatAng_Laden of VBA Dokument Form_frmMatKalk"
 
End Sub

Gr??e

Peter Bayer