Private Sub Command3_Click()
Dim db As ADODB.Connection
Dim strdb  As String
Dim rst As ADODB.Recordset
Dim Datei
Datei = App.Path & "\datenbank.mdb"
 
  Set db = New ADODB.Connection
  strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
          & Datei & ";"
 
  db.Open strdb
 
  Set rst = New ADODB.Recordset
  rst.CursorType = adOpenDynamic
  rst.LockType = adLockOptimistic
  rst.Open "tbl_Adressen", db
 
FlexGrid_SetData rst("Therapie"), MSFlexGrid1
 
rst.Close
  db.Close
End Sub
 
Public Sub FlexGrid_SetData(ByVal sData As String, _
  oGrid As MSFlexGrid)
 
  With oGrid
    ' Daten anzeigen
    .Row = 0
    .Col = 0
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
    .Clip = sData
    .RowSel = 0
    .ColSel = 0
  End With
End Sub