hejsan ja ska loopa ut allt ur en databas men det funkar så klart inte...
*fattar dock ej varför*

<code>
Private Sub Form_Load()
Set Connect = New Connection
Set Recset = New Recordset

file = "C:\Inetpub\wwwroot\filmer.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file

SQL = "SELECT * FROM filmer order by namn DESC"
Recset.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until Recset.EOF

Label1.Caption = Recset("namn")

Recset.MoveNext
Loop
Recset.Close
Set Recset = Nothing
End Sub
</code>

Mvh