Private Sub fillGridFonds()
 
  Dim sSQL As String
  Dim oRs As New ADODB.recordset
  Dim dummy As Integer
 
 
  ' Datenbank öffnen
  If dbOpenMySQL("Datenbank") Then
 
  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
 
    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
  End If
 
End Sub

Private Sub mnuFondsGrid_Click()
Me.Hide
Form2.Caption = "Liste der Fonds"
Form2.Show
fillGridFonds
 
End Sub