Access med output som en Array

Set db = CreateObject("ADODB.Connection")
  db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Access.mdb"

  Set Rs = db.Execute("SELECT MinArray FROM Tabel1")

  If Not Rs.BOF Then
    strCollection = strCollection & Rs("minarray") ","
  End If
 
  db.Close

intLength = Len(strCollection)
strCollection = Left(strCollection,intLength -1)
  MinArray = Split(strCollection,",")
  MsgBox(MinArray(2))

Dette skulle virke!

//>Rune

Jeg kan desvære ikke få det til at virke.

strCollection = strCollection & Rs("minarray") ","
Har en "Syntax error" som forsvinder vi man sletter "," eller ved at lave den om til
strCollection = "" & strCollection & Rs("minarray") & ","

Men så er linien:
MinArray = Split(strCollection, ",")
ikke mulig

Det må du meget undskylde.. -jeg har glemt et &

Set db = CreateObject("ADODB.Connection")
  db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Access.mdb"

  Set Rs = db.Execute("SELECT MinArray FROM Tabel1")

  If Not Rs.BOF Then
    strCollection = strCollection & Rs("minarray") & ","
  End If
 
  db.Close

intLength = Len(strCollection)
strCollection = Left(strCollection,intLength -1)
  MinArray = Split(strCollection,",")
  MsgBox(MinArray(2))

//>Rune

Den siger:
Run-time error '9';
Subscript out of range

Hvad skal jeg gøre

Prøv lgie med denne:

Set db = CreateObject("ADODB.Connection")
  db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Access.mdb"

  Set Rs = db.Execute("SELECT MinArray FROM Tabel1")

  While Not Rs.EOF
    strCollection = strCollection & Rs("minarray") & ","
  Rs.MoveNext()
  Wend

    intLength = Len(strCollection)
    strCollection = Left(strCollection,intLength -1)
    MinArray = Split(strCollection,",")
    For i = 0 To UBound(MinArray)
        MsgBox(MinArray(i)
    Next

//>Rune

Der var nogen fejl i dit script så jeg har lavet det lidt om. Tak for din hjælp. Scriptet ser sådan ud nu:

Set db = CreateObject("ADODB.Connection")
  db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Access.mdb"

  Set Rs = db.Execute("SELECT MinArray FROM Tabel1")

  While Not Rs.EOF
    MinArray.Add (Rs("minarray"))
    Text1.Text = Text1.Text + 1
    Rs.MoveNext
  Wend
   
    db.Close

Text1.text = text.text + 1
linien er bare så jeg kunne se hvor mange gange den blev ved.

*G* Fair nok ;o)
Thx 4 Poinz

//>Rune