Set cnConnection = New ADODB.Connection
    cnConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=" & txtAccess.Text & ";"
    cnConnection.Open
 
Set rsRecordset2 = New ADODB.Recordset
    rsRecordset2.CursorLocation = adUseClient
    rsRecordset2.CursorType = adOpenDynamic
    rsRecordset2.LockType = adLockReadOnly
 
rsRecordset2.Open "SELECT left([infotext],500) as info FROM Artikel", _
  cnConnection
rsRecordset2.MoveFirst
ReDim arMemo(1)
 i = 0
    Do While rsRecordset2.EOF = False
        If rsRecordset2.Fields("info") <> "" Then
              Debug.Print rsRecordset2.Fields("info")
              arMemo(i) = rsRecordset2.Fields("info")
              i=i+1
        end if
    loop