DAO.Recordset casten oder parsen

Hallo Forum User,

ich möchte ein SQL Statement in eine Variable speichern.
Hierbei handelt es sich um die Umgebung Access 2007 und die Programmiersprache VBA.

Ich habe bereits das Statement in eine Variable gespeichert, jedoch ist mir in dem Fall das Ergebnis wichtig.

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT COUNT (PROJEKT) FROM PRJVERWTSTADMIN_PRJV_PROJEKT")

Sollte einen nummerischen Wert zurückgeben. Diesen möchte ich abspeichern in einer Variable.

Grüße,
AMStyles

Dim db as DAO.Database
Dim rs As DAO.Recordset
Dim counter as Integer

set db = currentDb

Set rs = CurrentDb.OpenRecordset("SELECT COUNT (PROJEKT) as cnt FROM PRJVERWTSTADMIN_PRJV_PROJEKT")  

if not rs.eof then
    counter = rs![cnt]
else
    counter = 0
end if

msgbox counter

Dim db as DAO.Database
Dim rs As DAO.Recordset
Dim MeineVariable as String

set db = currentDb

Set rs = CurrentDb.OpenRecordset("SELECT StringFeld FROM PRJVERWTSTADMIN_PRJV_PROJEKT")  

if not rs.eof then
    MeineVariable = rs![StringFeld]
else
    MeineVariable = ""  
end if

msgbox MeineVariable 

'Das aufräumen nicht vergessen  
set rs = nothing
db.close 'wird bei currentDb nicht unbedingt gebraucht  

if not rs.eof then 
    MeineVariable = rs![StringFeld] 

Set rs = CurrentDb.OpenRecordset("SELECT StringFeld FROM PRJVERWTSTADMIN_PRJV_PROJEKT")   

if not rs.eof then 
    MeineVariable = rs![StringFeld] 
end if