Spara till array från databas

Har en SELECT-sats som ser ut så här

SQL3 = "SELECT KompID FROM Latkomp WHERE LatID=" & request("LatID")
Set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.Open SQL3, Connection

Men jag skulle vilja att den sparar KompID i en Array, så jag slipper loopa den för få fram samtliga värden.

Går detta att göra?

Dim objConnection, objRecordSet
Dim resArray

Set objConnection = Server.CreateObject( "ADODB.Connection" )
objConnection.Open "DSN=dinDSN"
Set objRecordSet = objConnection.Execute( "SELECT KompID FROM Latkomp WHERE LatID=" & Request( "LatID" ) )

resArray = objRecordSet.GetRows()

objRecordSet.Close
objConnection.Close
Set objRecordSet = Nothing
Set objConnection = Nothing

KompID finns nu i den två-dimensionella arrayen resArray.

[red]
SQL3 = "SELECT KompID FROM Latkomp WHERE LatID=" & request("LatID")
Set RS3 = Connection(SQL3)
If NOT RS3.EOF Then 
     arrayKomp = RS3.Getrows
Else
     'Det fanns inga poster
End If
[/red]

Då har du dina värden i arrayKomp

mvh icaaq

Få följande felmeddelande när jag försöker komma åt den med t.ex. <%=resArray(0)%>

Felaktigt matrisindex

Testa

[red]
<%=resArray(0,0)%>
<%=resArray(0,1)%>
[/red]

Då den är två dimmensionell

mvh icaaq