Great I get the path till my bin directory..

This is my code..

Dim app As AppDomain
Dim myState
Dim myPath = app.CurrentDomain.BaseDirectory

myConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=" & myPath & " GraphicsProject.mdb;Mode=Share Deny None;"

mydb = New OleDbConnection(myConnStr)
mydb.Open() ---------------------> Error
myState = mydb.State()
MessageBox.Show(myState)

I get an unknown error when I open the database. Any idea what is going wrong ? My rest of the conn string is copiued and pasted from a design time conn object