Private Sub fillGridFonds()
  Dim sSQL As String
  Dim oRs As New ADODB.recordset
  Dim dummy As Integer
  Dim nTime As Single  
 
  ' Datenbank öffnen
  nTime = Timer
  If dbOpenMySQL("Datenbank") Then
    Debug.Print "OpenDB: ", Timer - nTime
 
    nTime = Timer
    sSQL = "select company as Gesellschaft, Fondsname, Fondstyp, info as" & _
      "Bemerkung, wpk as WKN, ISIN, datumstart as Auflagedatum from fonds"
 
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
    Debug.Print "OpenRecordset: " , Timer - nTime
 
    nTime = Timer    
    With Form2.Grid1
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
 
      ' Filterzeile oberhalb der Spaltenköpfe anzeigen
      .FilterAlign = FILTER_ALIGN_TOP
      .FilterForeColorDisabled = vbGrayText
      .FilterVisible = True
      .AllowFilterEdit = True
      .FilterMoveTAB = False
      .FilterTextFixCol = "Suche:"
      ' .LockUpdate False
      ' Refresh
 
      ' Recordset-Kopie erstellen
      .CreateClone = True
 
      ' Recordset zuweisen
      Set .recordset = oRs
 
      ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
      ' .ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
 
      .Columns(1).MinWidth = 2000
      .Columns(2).MinWidth = 3000
      .Columns(3).MinWidth = 3000
      .Columns(4).MinWidth = 3000
      .Columns(5).MinWidth = 1500
      .Columns(6).MinWidth = 1500
      .Columns(7).MinWidth = 1500
 
      ' autom. Sortierung aktivieren
      .AutoSort = True
 
      ' nach Feld "Name" sortieren
      .DoSort "fondsname"
 
      ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
      .AllowEdit = True
      .AutoUpdate = True
      .AllowDelete = True
 
      ' interaktives Ändern der Spaltenbreiten zulassen
      .AllowColumnSizing = True
 
      ' autom. Neuzeichnen einschalten
      .LockUpdate False
      .Refresh
 
      ' 1. Zeile selektieren
      .Row = 1
 
      ' usprüngliches Recordset zerstören
      oRs.Close
      Set oRs = Nothing
    End With
    Debug.Print "Grid: ", Timer - nTime
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de