请看下这个是怎么回事啊?
我用的.listfield 但是编译的时候说未找到方法或数据成员
Private Sub Form_Load()
nowconnectstring = connectstring
If conn.State <> 1 Then
conn.CursorLocation = adUseClient
conn.Open nowconnectstring
End If
Set rsuser = conn.Execute("SELECT*FROM companyuser")
Dacomyhmc.ListField = rsuser.Fields("yhmc").Name
Dacomyhmc.BoundColumn = rsuser.Fields("yhmc").Name
End Sub
这是代码