请高人帮忙看看哪里错了,为什么有一个能找到另三个找不到啊.. 哪里错了呢...为什么只有a = Me.Adodc1.Recordset(0)能找到.....而剩下的三个都提示在对应的集合中未找到项目啊..... Private Sub Command2_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Me.Adodc1.RecordSource = "SELECT SUM(FEN) From LOVE1 HAVING (编号<12)UNION ALL SELECT SUM(FEN) From LOVE1 Having (编号 > 11) And (编号 < 30) UNION ALL SELECT SUM(FEN) From LOVE1 HAVING (编号>29) UNION ALL SELECT SUM(FEN) From LOVE1" Adodc1.Refresh '刷新结果集 a = Me.Adodc1.Recordset(0) b = Me.Adodc1.Recordset(1) c = Me.Adodc1.Recordset(2) d = Me.Adodc1.Recordset(3) Text1.Text = "a和b和c和d" End Sub 以上的Me.Adodc1.RecordSource = "SELECT SUM(FEN)......"在程序中是写成一整行的啊,贴吧大约不能显示那么长,自动分行了...