NE1???
I can't seem to get this to work. It should be easy, but my mind seems to just not see the issue.

strUserDB = "UsersDB","","My_Password"

Sub OpenDB
Set strcon = Server.CreateObject("ADODB.Connection")
strCon.Open (" & strUserDB & ")
End Sub

Thanks in advance