fpspread 콤보박스 값 넣고 선택하기

 Str = "SELECT * from dbo.workgrmst"
 Rsc.Open Str, Cn, adOpenStatic, adLockReadOnly
                        
 If Not Rsc.EOF Then
   Do Until Rsc.EOF
   j = j + 1
   '해당하는 콤보박스에 값을 추가해 주고 
   .TypeComboBoxIndex = j
   .TypeComboBoxString = Rsc!WorkGrCode & ":" & Rsc!WorkGrName
   '콤보박스에서 해당하는 이름이 같으면 해당 셀로 선택해준다.
    If Rsc!WorkGrName = Rs!WorkGrName Then
          '!!!선택!!!!!
          .TypeComboBoxCurSel = j
    End If
                         
    Rsc.MoveNext
    Loop
                    
 Else
    MsgBox "회사목록 불러오기실패", vbOKOnly, "회사목록 불러오기실패"
  End If
    Rsc.Close: Set Rsc = Nothing
 
'.TypeComboBoxIndex = index 번째
'.TypeComboBoxString = 콤보박스값
'.TypeComboBoxCurSel = 콤보박스 index번째 선택