Open another pst file

[DeadString]

guys, can u gve me a program that can open another pst file that has been inputed by a user in a textbox....
heres a sample code:

Private Sub Getnameaddress()
Dim ol As New Outlook.Application
Dim olNS As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
grd.Rows = 2
' VBA code example.


Set olNS = ol.GetNamespace("MAPI")

' Set MyFolder to the default contacts folder.
Set myFolder = olNS.GetDefaultFolder(olFolderContacts)

' Set MyItems to the collection of items in the folder.
Set myItems = myFolder.Items
For Each SpecificItem In myItems
grd.TextMatrix(grd.Rows - 1, 0) = SpecificItem.FullName
grd.TextMatrix(grd.Rows - 1, 1) = SpecificItem.Email1Address
grd.Rows = grd.Rows + 1
Next
End Sub