File Load Question

[JAtkinson]

Ive created a program that saves information about a person. The directory in which it is saved depends on what you select in two different comboboxes. (ie. if combobox1.text = "VBWIRE", and combobox2.text = "Forums", then the (OpenFileDialog) .initialdirectory should be "c:\VBWIRE\Forums\"). Instead, the initial directory keeps coming up as the path of the first file loaded.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        With SaveFileDialog1
            .FileName = txtNewPlayer.Text
            .DefaultExt = "nfl"
            .Filter = "nfl files (*.nfl)|*.nfl|All files (*.*)|*.*)"
            .FilterIndex = 1
            .InitialDirectory = "C:\Player Information\" & cmbNewTeam.Text & "\" & cmbNewPosition.Text & "\"
            .OverwritePrompt = True
            .Title = "NFL Player Database - File Save"
 
        End With
 
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            strFileName = SaveFileDialog1.FileName
            Dim objWriter As StreamWriter = New StreamWriter(strFileName, False)
 
            objWriter.WriteLine(txtNewPlayer.Text)
            objWriter.WriteLine(cmbNewTeam.Text)
            objWriter.WriteLine(cmbNewPosition.Text)
            objWriter.WriteLine(cmbNewHeight.Text)
            objWriter.WriteLine(txtNewWeight.Text)
            objWriter.WriteLine(cmbNewQuality.Text)
            objWriter.WriteLine(txtNewJerseyNumber.Text)
            objWriter.Write(rtbNewInformation.Text)
            objWriter.Close()
            objWriter = Nothing
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
 
 
    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
 
        With OpenFileDialog1
            .Filter = "NFL files (*.nfl)|*.nfl|All files (*.*)|*.*"
            .FilterIndex = 1
' This is where Im having the problem... works fine with save, but not open.
            .InitialDirectory = "C:\Player Information\" & cmbNewTeam.Text & "\" & cmbNewPosition.Text & "\"
            .Title = "NFL Player Database - File Open"
          
        End With
 
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            strFileName = OpenFileDialog1.FileName
            Dim objReader As StreamReader = New StreamReader(strFileName)
 
            txtNewPlayer.Text = objReader.ReadLine
            cmbNewTeam.Text = objReader.ReadLine
            cmbNewPosition.Text = objReader.ReadLine
            cmbNewHeight.Text = objReader.ReadLine
            txtNewWeight.Text = objReader.ReadLine
            cmbNewQuality.Text = objReader.ReadLine
            txtNewJerseyNumber.Text = objReader.ReadLine
            rtbNewInformation.Text = objReader.ReadToEnd
            objReader.Close()
            objReader = Nothing
 
        End If
    End Sub

Anyone have any ideas why it wont actively change to whatever the combobox text is?? Is there some kind of "clear" that I should put in there to reset it?