Office: CurrentProjekt

Hallo zusammen,
wollte mal nachfragen warum ich bei dem untenstehenden Coding

in der Zeile: Set Conn = CurrentProjekt.Connection

die Fehlermeldung erhalte, dass die Variable 'CurrentProjekt ' nicht definiert sei. Sobald ich in meinem Formular 'Option Explicit' deaktiviere, läuft das ganze Problemlos.
Was fehlt hier?

Gruß Danny

Dim Conn As New ADODB.Connection
Dim DBS As ADODB.Recordset

Set Conn = CurrentProjekt.Connection
Set DBS = New ADODB.Recordset

DBS.Open "meine Tabelle", Conn, adOpenKeyset, _
adLockOptimistic


DBS.AddNew
DBS!Name = Liste
DBS!Geändert = UCase(CurrentUser)
DBS!Änderungsdatum = Date
DBS!Änderungszeit = time
DBS!Gültigkeit = 0
DBS!Sort = 1
DBS.Update
DBS.Close

Set DBS = Nothing
Set Conn = Nothing

:)

 

Hi,

VBA ist englisch als CurrentProject. *wink.gif*

 

Vielen Dank Jan

 

Hallo
möglicherweise SO : Set Conn = CurrentProject.Connection