Private Sub Form_Load()
    '连接数据库
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\a\Documents\数据库\家庭财务\JTCW.mdb;" & "Persist Security Info=False"
    '打开记录集
    Dim strSQL As String
    strSQL = "SELECT 姓名 from 家庭成员 ORDER BY 姓名"
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
    Set txtName.DataSource = rs
    txtName.DataField = "姓名"
    Set DataList1.RowSource = rs
    DataList1.ListField = "姓名"
End Sub
运行时没有未找到方法和数据成员 

解决方案 »

  1.   

    DataList1的RowSource 和ListField好像是在属性框直接设置的......
    请确认是哪句报错
      

  2.   

    Set DataList1.RowSource = rs
        DataList1.ListField = "姓名" 
    这两句报错,属性框里没有RowSource 和ListField这两个属性
      

  3.   

    lz用错了控件吧?DataList不是ListBox工程——〉部件——〉microsoft datalist controls 6.0
      

  4.   

    仔细看看DataList1是什么控件。
      

  5.   

    LZ肯定用的是microsoft datalist controls 5.0的, 
    加载microsoft datalist controls 6.0 选择listbox就会有这方面的属性。