Jag har en tabell som ser ut som nedan. Jag sparar här alla inställningar.

min tabell

UserStandard
ID Nyckel Varde
1 Bakgrund #FFFFFF
2 Link #000FFF

Hur gör jag för att i arrayen spara värdet för bakgrunden, Link

strSQL = "SELECT Nyckel, Varde from USERSTANDARD"
Set objRS = RunSQLReturnRS(ConnOpto, strSQL)

If Not objRS.EOF Then
ColorArray(0) = ?????
ColorArray(1) = ?????

Du får göra nåt sånt här:

strSQL = "SELECT Nyckel, Varde from USERSTANDARD"
Set objRS = RunSQLReturnRS(ConnOpto, strSQL)

do while Not objRS.EOF Then
if objRS.fields("nyckel").value = "Bakgrund"
ColorArray(0) = objRS.fields("Varde").value
elseif objRS.fields("nyckel").value = "Link"
ColorArray(1) = objRS.fields("Varde").value
end if
loop

Det är lite snyggare med en select case, bör ju anropa movenext i loopen, fältvariabler är lite snyggare och lite effektivare i större loopar men påverkar inte så mycket i detta exemplet.
Sedan frågar jag mig varför du lagrar värdena i en array? Varför inte använda variabler?
<code>
Dim fldNyckel
Dim fldVarde
strSQL = "SELECT Nyckel, Varde FROM USERSTANDARD"
Set objRS = RunSQLReturnRS(ConnOpto, strSQL)
Set fldNyckel = objRS("nyckel")
Set fldVarde = objRS("Varde")

Do Until objRS.EOF Then
Select Case fldNyckel.VAlue
Case "Bakgrund"
ColorArray(0) = fldVarde.value
Case "Link"
ColorArray(1) = fldVarde.value
End Select
objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing
</code>