ช่วยด้วยค่ะ ต้องการกำหนด path แบบตายตัว ให้กับ openfiledialog ค่ะ vb.net นั่งงมมา 3 ชม.แล้วT_T

Private Sub DataEmp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'HumanDataSet1.EmpProfile' table. You can move, or remove it, as needed.
        'Me.EmpProfileTableAdapter.Fill(Me.HumanDataSet1.EmpProfile)

        Datetxt.Text = Date.Today


        con.Open()

        'Picturetxt.Text = "C:\visual studio 2010\Projects\Payroll\Payroll\bin\Debug\pic\man icon.jpg"
        If IdNumbertxt.Text = "" Then
            ClearData()
            'Dim openfile As New OpenFileDialog()
            'openfile = Image.FromFile("C:\visual studio 2010\Projects\Payroll\Payroll\bin\Debug\man icon.jpg")
            OpenFileDialog1.FileName = "C:\visual studio 2010\Projects\Payroll\Payroll\bin\Debug\man icon.jpg"
            PictureBox1.Image = Image.FromFile(CurDir() + "\pic\man icon.jpg")
        Else
            ReadData()
            Bindings()

        End If
        
    End Sub

Private Sub Picturebtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Picturebtt.Click
        With OpenFileDialog1
            .Filter = "Image Files(*.gif;*.jpg) | *.gif;*.jpg"
            .FileName = ""
            If (.ShowDialog() = DialogResult.OK) Then
                Picturetxt.Text = .FileName
                PictureBox1.Image = Image.FromFile(.FileName)
            End If
        End With
    End Sub

Private Sub Cancelbtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelbtt.Click
        ClearData()
        Me.Refresh()
        con.Close()
        fineDetail.Show()
        
        Me.Close()

    End Sub