Code:
Private Sub Command2_Click()
'display the commondialog show open
    
    CommonDialog1.InitDir = "C:\"          'set dir path
    CommonDialog1.CancelError = True               'used in cancel code
    CommonDialog1.Filter = "All files(*.*)|*.*"    'filter for all files
    CommonDialog1.ShowOpen                         'show files
    Data1.Database = CommonDialog1.FileName
    Text1.DataSource = Data1
    Text1.DataField = "yourfield"
End Sub