By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,441 Members | 1,831 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,441 IT Pros & Developers. It's quick & easy.

Authentication Failed Message????????

P: n/a
Ok so heres the code.. for some reason I kept getting the no
permissions message, so I attempted to add the workgroup file. Now I
get the "Authentication Failed" message. This is a secure database.
HELP.. I know I'm writing (adding) something wrong... The user i'm
using is a valid user in the workgroup associated with the DB.


Private Function CallJetDB(strMDB As String) As Boolean
Dim SecFile As String
Dim creaobj As Object
SecFile = DLookup("VCIRSecfile", "tbldbpaths")
Set creaobj = CreateObject("ADODB.Connection")
With creaobj

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet
OLEDB:System Database=" & SecFile & "User ID=Viewer;Password=12345" _
& "Data Source=" & strMDB & "; Mode=Share Deny None;"
CallJetDB = (cnn.Properties("Jet OLEDB:Engine Type") = 5)
End With
Set creaobj = Nothing
Exit Function
End With
End Function

Nov 13 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.