Private Sub Command2_Click() ' OpenFile Dialog
Dim strFile As String
strFile = RecallFileLocation
If Len(strFile) > 0 Then
'
' This is where you'd have to insert your own code to write to the table
'
Call YourProcedureNameHere(strFile)
Else
MsgBox "Cancelled"
End If
End Sub