i cant find CurrentProject.Path help!

[macken09]

im using vb6 and MSaccess 2003
Public Sub OpenDBConnection()
Dim strPath As String
strPath = CurrentProject.Path <<<<<error CurrentProject or
CurrentApplication
If Right$(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strPath & "\data\MFMS.mdb;Persist Security Info=False"
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
'strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\sysnow\data\MFMS.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open strconek
End Sub
is there something wrong with my references

 

[RoyVidar]

im using vb6 and MSaccess 2003
Public Sub OpenDBConnection()
Dim strPath As String
strPath = CurrentProject.Path <<<<<error CurrentProject or
CurrentApplication
If Right$(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strPath & "\data\MFMS.mdb;Persist Security Info=False"
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
'strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\sysnow\data\MFMS.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open strconek
End Sub
is there something wrong with my references

If you're using VB6, then you probably wont find currentproject.path.

Currentproject is a property of the Access application object, and
allows access to the CurrentProject object with related objects,
properties and methods within Access, and, as far as I know, is
available only from Access VBA code (or through automation).

I think you will need other means of retrieving the path, where I
think an NG dedicated to VB6 might be a better place to look. Is
App.Path the equivalent in VB6?