Private Sub Command5_Click()
Dim strFile As String, strFilter As String
strFilter = "MS Access Database (*.mdb)|*.mdb|MDE-Files (*.mde)|*.mde|All Files (*.*)|*.*||"
WizHook.Key = 51488399
WizHook.GetFileName 0, "AppName", "DlgTitle", "", strFile, "c:\", strFilter, 0, 0, 0, True
Me.Text3 = strFile
End Sub
|