Right.

Code:
Private Sub Form_Load()

    getCustId

End Sub

Private Sub getCustId()
  Dim i As Integer

  i = 0
  rs.movefirst
  do until rs.eof = true
    check1(i).Tag = rs!CustomerID
    i = i + 1
    rs.movenext
  until

End Sub



Private Sub cmdGO_Click()
  Dim i As Integer

  For i = Check1.LBound To Check1.Ubound
    If check(i).value = vbChecked Then
      If findCust(check(i).tag) = True Then
        displayCust
        'build app or whatever
      Else
        Msgbox "The Customer was not found!"
      End If
    End If
  Next i

End Sub


Private Function findCust (iCust As String) As Boolean

  rs.movefirst
  
  Do Until (findCust = True) Or (rs.EOF)
    If iCust = rs.CustomerID Then
      findCust = True
      Exit Function
    End If
    rs.MoveNext
  Loop

End Sub


Private Sub DisplayCust()

    txtID = "" & rs!ID 
    txtCustomer = "" & rs!Customer 
    txtCustomerID = "" & rs!CustomerID 
    txtPostCodes = "" & rs!POSTCODES 
    txtIGN = "" & rs!IGN 
    txtOwnMasterDatabase = "" & rs!OwnMasterDatabase 
    txtWebDBType = "" & rs!WebDBType 
    txtDongle = "" & rs!Dongle 
    txtCarriers = "" & rs!Carrier 
    txtTriQuad = "" & rs!TriQuad 
    txtumNumberUsers = "" & rs!umNumberUsers 
    txtumPassword = "" & rs!umPassword 
    txtumDistance = "" & rs!umDistance 
    txtumTariff = "" & rs!umTariff 
    txtumCosts = "" & rs!umCosts 
    txtumMultipleLogin = "" & rs!umMultipleLogin 
    txtISPreProccessorType = "" & rs!SetPreProccessor 

End Sub