Come mai? E' un po' difficile risponderti, forse sporchi il nome del db e rifai la connection?
Ti posto il codice che di solito utilizzo:

codice:
    DlgOpen.ShowOpen
    If DlgOpen.FileName <> "" Then
        Txt.Text = DlgOpen.FileName
    End If
Ciao