>>3 
重ねてありがとうございます。 
 
仰るように、データを取得・表示するときではなく、discriptionを設定するのに時間が掛かっているようです。 
 
如何にせよド素人なんで、とりあえず要求された動きを最優先させ、あとから整理する。といった遠回りな作業を余儀なくされている次第です。 
 
それこそ折角なのでお知恵を拝借させて頂けますでしょうか？ 
 
コードの悪い部分を指摘して下さい。 
歯に衣着せぬ指摘が一番ありがたいです。 
 
以下ソース。 
 
Private Sub Set_JAN() 
  Dim strWK As String = "", intWK As Integer = 0 
  Dim lngLP As Long, lngSP As Long 
   
  Dim strSQL As String 
  Dim dtbDB As DataTable 
  Dim strErr As String 
   
  Dim strHinBan As String 
 
  Dim lngNP As Long 
   
  Try 
   
  '------------ 取引マスタ 取得 
  dtbDB = Nothing 
  strSQL = "" 
  strSQL &= " SELECT  DISTINCT  HinBan , HinNam" 
  strSQL &= " FROM ITM_MAST " 
  '--- ＤＢ 
  If clsDB.DB_SelectQuery(strSQL, dtbDB) = _ 
  DBcommon.enmReturn.DB_ERROR Then 
    '--- エラーExit 
    strErr = clsDB.ErrorException.Message & _ 
    "(参照エラー)" 
    Throw New System.Exception(strErr) 
  End If 
 
  '--- 指定なし項目 設定 
  lngSP = Me.imcFromJAN.Items.Add("指定なし") 
  Me.imcFromJAN.Items.Item(lngSP).Description = "" 
   
  '--- FromJAN 設定 
  For lngLP = 0 To dtbDB.Rows.Count - 1 
    '------ 設定情報 取得 
    strHinBan = fncGGetFld(dtbDB.Rows(lngLP).Item _ 
    ("HinBan").ToString.Trim, enmType.fldString) 
 
    '---コンボ設定 
    lngNP = Me.imcFromJAN.Items.Add(strHinBan) 
  Next lngLP 
 
  Catch ex As Exception 
  '--- エラーログ出力 
    Call clsCom.WriteErrorLog(ex, Reflection. _ 
    MethodBase.GetCurrentMethod.Name) 
 
  End Try 
 
End Sub 
 
 
Discriptionは一時的に削除しました。 
コンボも一つしか設定してません。