Funktion

Jeg har en del databaser (samme struktur) hvor jeg skal hente indholdet af ind i nogle listebokse.
istedet for at skrive det samme 10 gange, vil jeg lave det som en funktion jeg kan kalde.

i dette tilfælde er det lande jeg vil hente fra en datebase er hedder lande, hvorefter de skal sættes ind i (Listbox) som hedder lande.
Virker ikke, hvordan gøres dette???


Sub hent(basen)

basen.Clear

objConn.Open databasen

SQL = \"Select * from \"&basen&\" where \"&basen&\"id>0 ORDER BY \"&basen&\" ASC\"

objRS.Open (SQL),objConn, adOpenStatic, adLockOptimistic

    objRS.MoveFirst
    Do While Not objRS.EOF
       
        basen.AddItem objRS.Fields(\"&basen&\")

        objRS.MoveNext
    Loop

Set objRS = Nothing
objConn.Close
End sub
-------------------------------------------------------------------------------

Private Sub knap_Click()
hent (\"lande\")
End Sub


Peter Lang