怎样设置组合框的RowSource

cat0320

我的目的是：单击列表框里的行，则组合框显示相应的值，我连接的是SQL SERVER数据库
Private Sub List2_Click()
  Dim rs As New ADODB.Recordset
  Dim sqlstr As String
  Dim i As Integer
     sqlstr = "SELECT 班级名称 FROM 班级名称表 where 所属年级=" & "'" & Me.List2.Value & "'" & " ORDER BY 编号 "
   
    rs.Open sqlstr, Conn, adOpenKeyset, adLockReadOnly
    Me.Combo10.RowSourceType = "Table/Query"
    Me.Combo10.RowSource = sqlstr
    Me.Combo10.Requery
         rs.Close
    Set rs = Nothing
End Sub
运行出错提示 :
        为此窗体或报表指定的记录源 SELECT 班级名称 FROM 班级名称表 where 所属年级=" & "'" & Me.List2.Value & "'" & " ORDER BY 编号   不存在。
名称拼写错误，或它已从当前数据库删除或改名，或它存在另一数据库中
在“窗体”中，单击“属性”，然后将“记录源”设置为已有的表或查询




如果代码改成这样就行：（为什么设置RowSource就不行）
Private Sub List2_Click()
  Dim rs As New ADODB.Recordset
  Dim sqlstr As String
  Dim i As Integer
  
   sqlstr = "SELECT 班级名称 FROM 班级名称表 where 所属年级=" & "'" & Me.List2.Value & "'" & " ORDER BY 编号]"
   
    rs.Open sqlstr, Conn, adOpenKeyset, adLockReadOnly
   
      
       For i = 0 To rs.RecordCount - 1
        Me.Combo10.AddItem (rs("班级名称"))
         rs.MoveNext
       Next
    rs.Close
    Set rs = Nothing

End Sub

Henry D. Sy

1. 提示不存在，可能你书写错误
2. 排除1的错误后，航来源类型应改为值列表

Henry D. Sy

另外：这个Conn具体是什么？

cat0320

Henry D. Sy 发表于 2012-3-13 11:16
1. 提示不存在，可能你书写错误
2. 排除1的错误后，航来源类型应改为值列表

书写应该对的
改为值列表的话，我 就用第二种方法了。（第2段代码）

cat0320

Henry D. Sy 发表于 2012-3-13 11:16
1. 提示不存在，可能你书写错误
2. 排除1的错误后，航来源类型应改为值列表

1.书写应该对的
2.改为值列表的话，我就只用采用第二种方法了（第二段代码）

Henry D. Sy

连接写对了吗
也就是conn=？

cat0320

Henry D. Sy 发表于 2012-3-13 11:36
连接写对了吗
也就是conn=？

conn写对的，conn是连接SQL 数据库的，我放在模块了，调用的