Valg af postkilde fra forespørgsler

Function ListNames()
    Dim db As Database
    Dim rst As Recordset

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblCustomers")

    .....
End Function

Jeg har ikke vanvittig meget check på det, men måske er det noget i denne retning?

Dette skulle kunne gøre det.

Private Sub Form_Load()
\'Her skal der laves forbindelse til database
Dim strSQL
strSQL = \"SELECT * FROM Tabel\"
Form.RecordSource = strSQL
End Sub

ok