Dim db As Database
   Dim rs As Recordset
   Dim vRow As Variant
 
   'Variant vRow(Spalte, Zeile) basiert auf 0
 
   Set db = OpenDatabase("F:\MyExl.xls", False, False, "Excel 8.0;")
   If IsObject(db) Then
      Set rs = db.OpenRecordset("SELECT * FROM MyBereich") ' das oder
      'so: Set rs = db.OpenRecordset("MyBereich") 
      If Not rs.BOF Or rs.EOF Then
         vRow = rs.GetRows(3)
 
 
      End If
   End If