Kan ikke forstå koden. data t combo

Jeg vil gerne kunne se alle txtData(0).Text fra databasen i en combobox, men HVORDAN???

Er der nogen der forstå noget af alt det her...

--------------------------------------------------
Option Explicit

Private objScroll As HScrollBar 'HScrollBar Object

Private Sub cmdDelete_Click()
  Call RemoveItem(CInt(objScroll.Value))
  Call Opdater
  cmdSave.Enabled = True
End Sub

Private Sub cmdRename_Click()
Dim lCount As Integer

  With DataRec
      lCount = CInt(objScroll.Value)
      .ArrData(lCount).bytData1 = txtData(0).Text
      .ArrData(lCount).bytData2 = txtData(1).Text
      .ArrData(lCount).bytData3 = txtData(2).Text
      .ArrData(lCount).bytData4 = txtData(3).Text
      .ArrData(lCount).bytData5 = txtData(4).Text
  End With

  Call Opdater
  cmdSave.Enabled = True
End Sub

Private Sub cmdSave_Click()
  cmdSave.Enabled = False
  Call SaveType
  Call Opdater
End Sub

Private Sub cmdAdd_Click()
Dim lCount As Integer

  With DataRec        'Integer Max = 32767
      If Not (UBound(.ArrData) + 1) > 32767 Then
        lCount = CInt(UBound(.ArrData) + 1)
        ReDim Preserve .ArrData(lCount)
        .ArrData(lCount).bytData1 = txtData(0).Text
        .ArrData(lCount).bytData2 = txtData(1).Text
        .ArrData(lCount).bytData3 = txtData(2).Text
        .ArrData(lCount).bytData4 = txtData(3).Text
        .ArrData(lCount).bytData5 = txtData(4).Text
      End If
  End With

  Call Opdater
  cmdSave.Enabled = True
End Sub

Private Sub cmdSearch_Click()
Dim lCount As Integer
Dim lStart As Integer
Dim strSearch As String

  strSearch = txtSearch.Text 'Søge string

  If Not Len(Trim(strSearch)) = 0 Then
 
    With DataRec
        If UBound(.ArrData) > 0 Then
          lStart = CInt(objScroll.Value + 1)
            Else
          lStart = CInt(objScroll.Value)
        End If
 
        For lCount = lStart To CInt(UBound(.ArrData))
                                    'Søger i bytData1
          If InStr(1, LCase(.ArrData(lCount).bytData1), LCase(strSearch)) <> 0 Then
            objScroll.Value = lCount
            Exit For
          End If
        Next lCount
    End With
 
  End If
End Sub

Private Sub Form_Load()

  Set objScroll = DataScroll          'Set HScrollBar Object
  strPath = App.Path & "\TypeData.dat" 'Path til load/save file

  If LoadType() Then
    'Har hentede data fra dat-file
    Call Opdater
      Else
    'Har lavet en ny dat-fil hvis der ikke er nogle
    Call MsgBox("Databasen er tom, tilføj nye data.")
    Call Opdater
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  'Tjekker om der kan gemmes (.Enabled = True)
  If cmdSave.Enabled = True Then
    If vbYes = MsgBox("Skal de nye ændringerne gemmes?", vbYesNo + vbExclamation) Then
      'Hvis Ja (vbYes) så gem.
      Call SaveType
    End If
  End If
End Sub

Private Sub DataScroll_Change()
  Call Opdater
End Sub

Private Sub DataScroll_Scroll()
  Call Opdater
End Sub

Public Sub Opdater()
Dim lCount As Integer

  With objScroll
      .TabStop = False
      .LargeChange = 150
      .Min = 0
      .Max = CInt(UBound(DataRec.ArrData))
      Me.Caption = "Elevdata " & CStr(.Value) & " af " & CStr(.Max) 'Forms caption
      If .Max = 0 Then
        .Enabled = False
        cmdDelete.Enabled = False
          Else
        .Enabled = True
        cmdDelete.Enabled = True
      End If
  End With

  With DataRec
      lCount = CInt(objScroll.Value)
      txtData(0).Text = .ArrData(lCount).bytData1
      txtData(1).Text = .ArrData(lCount).bytData2
      txtData(2).Text = .ArrData(lCount).bytData3
      txtData(3).Text = .ArrData(lCount).bytData4
      txtData(4).Text = .ArrData(lCount).bytData5
  End With
End Sub

Private Sub mnuend_Click()
  'Tjekker om der kan gemmes (.Enabled = True)
  If cmdSave.Enabled = True Then
    If vbYes = MsgBox("Skal de nye ændringerne gemmes?", vbYesNo + vbExclamation) Then
      'Hvis Ja (vbYes) så gem.
      Call SaveType
    End If
  End If
End
End Sub


Private Sub txtSearch_Change()
  objScroll.Value = 0
End Sub