Visual Basic

<br />
'Get the file path of the document<br />
Private Sub ultbtnDocument_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ultbtnDocument.Click<br />
<br />
        ofdGetDocument.InitialDirectory = "d:\\"<br />
        ofdGetDocument.RestoreDirectory = True<br />
        ofdGetDocument.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rft)|*.rtf)|" & " All Files (*.*)|*.*"<br />
<br />
        If (ofdGetDocument.ShowDialog() = DialogResult.OK) Then<br />
            Dim fileName As String<br />
            fileName = ofdGetDocument.FileName<br />
            If (fileName.Length <> 0) Then<br />
                Try<br />
                    ReadFileInfo(fileName)<br />
                Catch ex As Exception<br />
                    MessageBox.Show(String.Format("{0} is not " & "a valid image file", fileName), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
                End Try<br />
            End If<br />
        End If<br />
    End Sub<br />

<br />
'Create a file stream and load the richtextbox with the file to display to the user<br />
Private Sub ReadFileInfo(ByVal fileName As String)<br />
        Try<br />
            Dim fs As FileStream<br />
            Dim fInfo As FileInfo<br />
            Dim fText As String<br />
<br />
            fs = New FileStream(fileName, FileMode.Open, FileAccess.Read)<br />
            fInfo = New FileInfo(fileName)<br />
            fText = fInfo.Extension.ToUpper()<br />
<br />
            If (fText.Equals(".RFT")) Then<br />
                rtxtDocument.LoadFile(fs, RichTextBoxStreamType.RichText)<br />
            ElseIf (fText.Equals(".TXT")) Then<br />
                rtxtDocument.LoadFile(fs, RichTextBoxStreamType.PlainText)<br />
            End If<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message & ex.StackTrace)<br />
        End Try<br />
    End Sub<br />

Dim mytable As New DataTable()<br />
mytable = myset.Tables("doc_reg")<br />
cbodoctor.DataSource = mytable<br />
cbodoctor.DisplayMember = "ColumnName"<br />
cbodoctor.ValueMember = "ColumnName" <br />