Voce deixe a propriedade DataBaseName do controle Data vazia, e coloca via codigo. No DBgrid aponte somente a propriedade DataSource para o controle Data.
Dim sMDB As String ' esta variavel pode ser publica.
Ao carregar o formulário, no Form_Load.
sMDB = App.Path & "SEUBANCO.MDB" ' nome do banco com o caminho completo.
Data1.DataBaseName =sMDB
Em um botão de comando, em uma função de pesquisa, ou onde preferir.
Data1.RecordSource = "SUACONSULTA"
Data1.Refresh
DBgrid1.Refresh
Assim, tanto o Data como o DBgrid, ficam independente do caminho do BD.
vlu//