Authentication Failed Message????????

[Mike]

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 "Authentica tion 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.

THanks


CODE FOLLOWS.

Private Function CallJetDB(strMD B As String) As Boolean
Dim SecFile As String
Dim creaobj As Object
SecFile = DLookup("VCIRSe cfile", "tbldbpaths ")
Set creaobj = CreateObject("A DODB.Connection ")
With creaobj

.ConnectionStri ng = "Provider=Micro soft.Jet.OLEDB. 4.0;Jet
OLEDB:System Database=" & SecFile & "User ID=Viewer;Passw ord=12345" _
& "Data Source=" & strMDB & "; Mode=Share Deny None;"
.Open
CallJetDB = (cnn.Properties ("Jet OLEDB:Engine Type") = 5)
End With
ExitHere:
creaobj.Close
Set creaobj = Nothing
Exit Function
End With
End Function