Private Sub cboFloorNumber_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboFloorNumber.Click Dim i As Integer cboFloorNumber.Items.Clear For i = 0 To m_oDataManagement.OleDataSet.Tables(0).Rows.Count - 1 cboFloorNumber.Items.Add(m_oDataManagement.OleDataSet.Tables ("UnitInformation").Rows(i)(0)) Next End Sub