「列がみつかりません 住所録ID」のエラーをなくすには (ID:110762)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ○下記のPGMの「dbgSub.Columns("住所録ID").Width = 60 * 15 」で「列が見つかりません」とのエラーメッセージが出ます。 どうしてですか？ Dim rs As New ADODB.Recordset Dim strsql As String Dim wCD_CLASS As String If cboGyosyu.Text = "" Then wCD_CLASS = "" Else wCD_CLASS = cboGyosyu.Text End If strsql = "SELECT 住所録ID,会社名,支社名,更新日 FROM 取引先会社マスター" rs.Open strsql, cn, adOpenStatic, adLockOptimistic Set dbgSub.DataSource = rs Debug.Print rs("会社名") dbgSub.Columns("住所録ID").Width = 60 * 15 dbgSub.Columns("会社名").Width = 60 * 15 dbgSub.Columns("支社名").Width = 60 * 15 dbgSub.Columns("最終変更日").Width = 60 * 15