Dim conKundenstamm as  ADODB.Connection
Dim rsKundenstamm as ADODB.Recordset
 
Set conKundenstamm = New ADODB.Connection
Set rsKundenstamm = New ADODB.Recordset
 
Dim i,j,k,l,m,n as integer
Dim TempFlexGrid As String
 
conKundenstamm.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path _
  & "\Kunden.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
 
conKundenstamm.CursorLocation = adUseClient
 
 
rsKundenstamm.Open "select * from kd_Stamm", conKundenstamm, adOpenDynamic, _
  adLockOptimistic
 
 
            'Flexgrid Formatierung
            .msgKundendaten.FormatString = "<Kundennummer |<Anrede |<Vorname" & _
              "|<Nachname |<Adresse |<Postleitzahl |<Ort |<Telefon-privat" & _
              "|<Telefon-dienstlich |<Mobil |<Email|<Geburtsdatum"
 
 
.msgKundendaten.Rows = rsKundenstamm.RecordCount + 1 'Gesamtanzahl der Zeilen 
' festlegen
 
 
        l = 1   'Variable i mit 1 initialisieren da Zeile 0 zur Beschriftung 
        ' dient
 
 
 
        While Not rsKundenstamm.EOF 'Solange wie nicht EndOfFile
 
            .Row = l  'Aktuelle Zeilen auf Wert von i setzen
 
                    'Wiederhole für m = 0 bis Feldanzahl
                    '-1 da von 0 an gezählt
                    For m = 0 To rsKundenstamm.Fields.Count - 1
 
                        .Col = m 'Aktuelle Spalte entspricht Wert von m
 
                        'Der Variable Temp den Inhalt des aktuellen Feldes 
                        ' zuweisen
                        If rsKundenstamm.Fields(m).Value <> Null Then
 
                            TempFlexGrid = rsKundenstamm.Fields(m).Value
                        Else
                            TempFlexGrid = ""
                        End If
                        'An die Clip-Eigenschaft des FlexGrids
                        'den Inhalt der Stringvariable Temp + Tab übergeben.
                        'Tab(Chr9) wird als Tennzeichen benötigt, um dem 
                        ' FlexGrid den
                        'Beginn einer neuen Spalte mitzuteilen.
                        .Clip = TempFlexGrid & Chr(9)
 
                    Next m 'Erhöhe m um 1
 
            l = l + 1 'Wert der Integervariable l um 1 erhöhen
 
            rsKundenstamm.MoveNext 'Springe zum nächsten Datensatz
 
        Wend 'Wiederhole
 
 
rsKundenstamm.MoveFirst