Moin, moin alle zusammen!

ich arbeite mit meiner Gruppe gerade an einem Projekt bei dem wir unter anderem ein Prognose-Modul entwickeln sollen. Das es nicht läuft brauche ich mal eure Hilfe.

Die Funktionsweise soll wie folgt sein: in ein Formular werden einige Daten eingetragen; per Klick auf einen Button soll dann ein Code ausgeführt werden der die eingegebene Daten als Variablen übernimmt und anschließend in SQL-Abfragen verwendet. Die SQL-Abfragen liefern dann jeweils nur einen einzigen Wert der in Datentyp Integer oder String umgewandelt und in einfachen mathematischen Berechnungen verwendet werden soll.

Das Ganze sieht etwa so aus(einige Variablendeklarationen habe ich jetzt ausgelassen, sie werden in ähnlichen Situationen verwendet)

Option Compare Database

Private Sub PrognoseStartFläche_Click()


Dim stDocName As String
OrtFormular = Forms!KiTa_Formular!OrtFormular
KiTa_Art = Forms!KiTa_Formular!KiTa_Art
JahrFormular = Forms!KiTa_Formular!JahrFormular
GesZahlBoegen03 = Forms!KiTa_Formular!GesZahlBoegen03
GesZahlBoegen36 = Forms!KiTa_Formular!GesZahlBoegen36
GesZahlBoegen610 = Forms!KiTa_Formular!GesZahlBoegen610

OrtAnz (MeinOrt2)

End Sub

Public Function OrtAnz()

Dim MeinOrt2 As String
MeinOrt2 = CStr(OrtZuordnen3())
MsgBox MeinOrt2

End Function
Public Function OrtZuordnen3()
Dim strSQL As String

Dim stAbfrage As String
Dim db As DAO.Database

stAbfrage = "OrtAbfrage"
strSQL = "SELECT ID_Ort FROM KiTa_Plan_Kreis_Ploen_Backend.Ort WHERE Ort = ' " & OrtFormular & " ' "

Set db = CurrentDb
DoCmd.RunSQL (strSQL)

End Function


Das Problem ist, dass DoCmd.RunSQL oder alternativ CurrentDb.Execute, die die SQL-Abfragen ganz einfach aus dem VBA-Code heraus ausführen können, nur für Aktionsabfragen, also für INSERT, DELETE, UPDATE und ähnliche geeignet sind...allein die SELECT-Abfrage kann damit nicht durchgeführt werden

Kennt jemand von euch solche eine Funktion, ähnlich wie DoCmd.RunSQL aber für die SELECT-Abfragen ?

Vielen Dank im Voraus !

MfG everstream