実行時エラーについて (ID:119370)

名前

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

本文 Dental様 回答ありがとうございます。 実際のコードを記載します。 データベースはSQL server 7.0に存在しております。 Private Sub Command2_Click() Dim strNaiyou As String strNaiyou = "TRANSFORM Sum(Atable.suuryou) AS suuryou " & _ "SELECT Atable.rID, Atable.shimei " & _ "FROM Btable INNER JOIN Atable ON Btable.cID = Atable.cID " & _ "Where (((Atable.syori) = 2)) " & _ "GROUP BY Atable.rID, Atable.shimei " & _ "PIVOT Btable.cID;" Dim recNaiyou As ADODB.Recordset Set recNaiyou = New ADODB.Recordset recNaiyou.Open strNaiyou, cnn, adOpenStatic, adLockPessimistic Set DataGrid1.DataSource = recNaiyou DataGrid1.AllowAddNew = False DataGrid1.ScrollBars = dbgAutomatic Set recNaiyou = Nothing End Sub お手数をお掛けして申し訳有りません。 ご意見の程、宜しくお願い致します。