Set Rst = DBS.OpenRecordset(strSQL, dbOpenDynaset)
Rst.MoveLast
Rst.MoveFirst
 
mColCount = Rst.RecordCount      'Explicit
lngRows = Rst.RecordCount
 
' For j = 1 To lngRows
  Set colTemp = comRessource.Columns.Add("", jgexText, jgexEditTextBox, "c1")
  colTemp.Width = comRessource.Width / 40
  colTemp.AllowSizing = False
 
  Set colTemp = comRessource.Columns.Add("", jgexText, jgexEditTextBox, "c2")
  colTemp.Width = comRessource.Width / 40
  colTemp.AllowSizing = False
 
  Set colTemp = comRessource.Columns.Add("", jgexText, jgexEditTextBox, "c3")
  colTemp.Width = comRessource.Width / 40
  colTemp.AllowSizing = False
 
' Next j
 
Rst.MoveLast
Rst.MoveFirst
 
lngRows = Rst.RecordCount
 
ReDim mavarresdata(1 To lngRows, 1 To 3)
 
' For i = 1 To Rst.RecordCount
  mavarresdata(1, 1) = Format(Rst![ID], "ddd")
  mavarresdata(2, 1) = Format(Rst![ID], "ddd")
  mavarresdata(3, 1) = Format(Rst![ID], "ddd")
 
  Rst.MoveNext
' Next i
 
' Reihen pro Spalte
comRessource.ItemCount = 3
 
End Sub
 
Private Sub comRessource_UnboundReadData(ByVal RowIndex As Long, ByVal Bookmark _
  As Variant, ByVal Values As Object)
 
  Dim i As Long
 
  ' For i = 1 To 2 'mColCount    'Spalten
    Values(1) = mavarresdata(1, RowIndex)
    Values(2) = mavarresdata(2, RowIndex)
    Values(3) = mavarresdata(3, RowIndex)
  ' Next i
End Sub