Visual Basic

'Load categories into equipment category combo box<br />
    Private Sub LoadCategories()<br />
        Try<br />
            Me.cboCategory.DataSource = Me.DsAddComponetAndEquipment1.SoftwareCategory<br />
            Me.cboCategory.DisplayMember = "Category"<br />
            Me.cboCategory.ValueMember = "CategoryID"<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub

'Load all the components into the grid<br />
    Private Sub LoadAllSoftware()<br />
        Try<br />
            Me.TA_Software_dsComponent_Equipment1.Fill(Me.DsAddComponetAndEquipment1.Software)<br />
            Me.dgvSoftware.DataSource = Me.DsAddComponetAndEquipment1.Software<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub

'Reload all software<br />
   Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click<br />
       Me.LoadAllSoftware()<br />
   End Sub

 'Display what the user has selected from the category of sofware<br />
    Private Sub cboCategory_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCategory.SelectionChangeCommitted<br />
        Dim bsCategory As New BindingSource<br />
<br />
        Try<br />
            bsCategory.DataSource = Me.DsAddComponetAndEquipment1.Software<br />
            bsCategory.Filter = String.Format("CategoryID = {0}", Me.cboCategory.SelectedValue)<br />
<br />
            Me.dgvSoftware.DataSource = bsCategory<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub

rtbText.SaveFile(currentFile, Word.WdSaveFormat.wdFormatDocument)