Så här ser det ut:
----------------------------------------------------------------------------------------------------------------------------------------
Dim Matrix(1000, 8)

SQL = "SELECT * FROM Person p, Kontaktperson k where p.PersonID=k.PersonID order by p.Efternamn, p.Fornamn"
Set RS = Conn.Execute(SQL)

If RS.EOF And RS.BOF Then
Else
i = 1
Do Until RS.EOF
' lägger recordsetet i en Array för snabbare åtkomst vid senare tillfälle
MatrixA(i, 1) = RS("PersonID")
MatrixA(i, 2) = RS("Fornamn")
MatrixA(i, 3) = RS("Efternamn")
MatrixA(i, 4) = RS("Telefon")
MatrixA(i, 5) = RS("Mobil")
MatrixA(i, 6) = RS("EPost")
MatrixA(i, 7) = RS("KontaktpersonID")

' lägger värden i min combo-box
cbKontaktperson.AddItem MatrixA(i, 3) & ", " & MatrixA(i, 2)
cbKontaktperson.ItemData(cbKontaktperson.NewIndex) = MatrixA(i, 1)
i = i + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
----------------------------------------------------------------------------------------------------------------------------------------
Fråga 1:
Hur kan jag utöka min MatrixA dynamiskt? Istället för att ange ett fast värde, skulle jag vilja att den utäkas automatiskt....

Fråga 2:
Hur kan jag i efterhand markera en viss rad i min combo-box?
Typ.... select cbKontaktperson where ItemData is 32....

//Torsten