Duda con BD access no guarda informacion

[josemanuel31675]

encontre parte mi ayuda a mi problema anexo codigo
Dim conn As OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand
Dim con As String = "Provider=Microsoft.JET.oledb.4.0;Data Source=C:\BD\BD_Access.mdb"

conn = New OleDb.OleDbConnection(con)
conn.Open()
cmd = New OleDb.OleDbCommand("insert into TuTabla(Dato1,Dato2) values(?,?)", conn)
cmd.Parameters.AddWithValue("?Dato1", Me.TxtDato1.Text)
cmd.Parameters.AddWithValue("?Dato2", Me.TxtDato1.Text)
cmd.ExecuteNonQuery()
conn.Close()

Ahora mi problema es como identificar la BDacces dentro de la carpeta del proyecto ya que tengo que poner toda la ubicacion "c:user\document\ etc etc", en un proyecto web utilizo "...\Ubicacion\pagina.aspx" pero aqui si intento algo parecido me manda a la carpeta Bin y ahi solo se guardan los datos temporalmente

Saludos