Preventing sharepoint asking for password in VBA

[Niebotel]

Hello, My backend database (ACCESS 2007) in on a sharepoint (WSS 3.0).
When my application wants to get data from its tables the user is promted for userid and password of the sharepoint.

Is there a way to get the data by putting the user id and password in the VBA some where?
This is an examplke how I retrieve the data:


Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "[Gebruikers]", con, adOpenStatic, adLockPessimistic

Gebruiker = rst!Gebruiker
Groep = rst!Groep

rst.Close