On my form I have an button to Browse my Computer and an Open Button
that allows me to open the file I have associated on my Computer. The
browse button also places the name of the file into a a field named
tbFileName on my form.

My question is, once I associated this file there is no way to
unassociate it on this form. Is there a way to delete this with a
delete button?

Here is my code. Any help would greatly be appreciated. Thanks.
--------------------------------------------------------------------------------------------------
Private Sub bBrowse_Click()
On Error GoTo Err_bBrowse_Click

   Dim strFilter As String
   Dim lngFlags As Long
   Dim varFileName As Variant

'   strFilter = "Access (*.mdb)" & vbNullChar & "*.mdb" _
'    & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
'    strFilter = "Access Files (*.mdb)" & vbNullChar & "*.mdb*"
   strFilter = "All Files (*.*)" & vbNullChar & "*.*"

   lngFlags = tscFNPathMustExist Or tscFNFileMustExist Or
tscFNHideReadOnly

   varFileName = tsGetFileFromUser( _
   fOpenFile:=True, _
   strFilter:=strFilter, _
   rlngflags:=lngFlags, _
   strDialogTitle:="Find File (Select The File And Click The Open
Button)")

   If IsNull(varFileName) Or varFileName = "" Then
       Debug.Print "User pressed 'Cancel'."
       Beep
       MsgBox "File selection was canceled.", vbInformation
       Exit Sub
   Else
       'Debug.Print varFileName
       tbFile = varFileName
   End If

   Call ParseFileName

Exit_bBrowse_Click:
   Exit Sub

Err_bBrowse_Click:
   MsgBox Err.Number & " - " & Err.Description
   Resume Exit_bBrowse_Click
End Sub
----------------------------------------------------------------------------------------------

Private Sub bOpenFile_Click()
On Error GoTo Err_bOpen_Click

   If IsNull(tbFile) Or tbFile = "" Then
       MsgBox "Please browse and select a valid file to open.",
vbCritical, "Invalid File"
   Else
       OpenFile (tbFile)
   End If

Exit_bOpen_Click:
   Exit Sub

Err_bOpen_Click:
   MsgBox Err.Number & " - " & Err.Description
   Resume Exit_bOpen_Click
End Sub
----------------------------------------------------------------------------------------------

Private Sub ParseFileName()
On Error GoTo Err_ParseFileName

   Dim sFullName As String
   Dim sFilePathOnly As String
   Dim sDrive As String
   Dim sPath As String
   Dim sLocation As String
   Dim sFileName As String

   sFullName = tbFile.Value

   ' Find the final "\" in the path.
   sPath = sFullName

   Do While Right$(sPath, 1) <> "\"
   sPath = Left$(sPath, Len(sPath) - 1)
   Loop

   ' Find the Drive.
   sDrive = Left$(sFullName, InStr(sFullName, ":") + 1)
   'tbDrive = sDrive

   ' Find the Location.
   sLocation = Mid$(sPath, Len(sDrive) - 2)
   'tbLocation = sLocation

   ' Find the Path.
   sPath = Mid$(sPath, Len(sDrive) + 1)
   'tbPath = sPath

   ' Find the file name.
   sFileName = Mid$(sFullName, Len(sPath) + 4)
   tbFileName = sFileName

Exit_ParseFileName:
   Exit Sub

Err_ParseFileName:
   MsgBox Err.Number & " - " & Err.Description
   Resume Exit_ParseFileName

End Sub