---

Jeg skal hente en tabel ind i access via en select sætning. Da det jo
ikke kan gøres direkte laver jeg en dbconnect og vil derefter hente
tabellen. Men jeg får ingen værdier frem når følgende kode køres. Det
passer dog ikke helt, den har en værdi et 1 tal.

Dim dbs As Database, rst As Recordset
Dim rando As Variant
Dim i As Integer
Dim strSQL As String
Set dbs = CurrentDb
strSQL = "SELECT * FROM moder "

Set rst = dbs.OpenRecordset(strSQL)
rst.MoveLast
rst.MoveFirst
rando = rst.GetRows
i = UBound(rando, 2) + 1
Do While i < 5
Rand = rando(i, 0)
i = i + 1
Loop

rst.Close
dbs.Close
DoCmd.Save

Håber der er nogen der kan hjælpe...og gerne hurtigt. Er til et system
som skal i luften sidst på ugen.

mvh
Louise