高手帮忙看看我的问题!

Question

Set DataCombo1.DataSource = rs.DataSource

Answer 1

Set DataCombo1.RowSource = rs

Answer 2

为什么不能显示多行？ Private Sub Form_Load()   Set cnn = New ADODB.Connection 
  Set rs = New ADODB.Recordset   rs.LockType = adLockOptimistic 
  cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb" 
  rs.Open ("维护表"), cnn, adOpenDynamic   cmdupdate.Enabled = False 
   
  Set DataCombo1.RowSource = rs.DataSource 
Set DataCombo1.ListField = "联系人" 
End Sub 

Answer 3

rs.Open ("维护表"), cnn,adOpenKeyset,adLockBatchOptimistic

Answer 4

Private Sub Form_Load()   Set cnn = New ADODB.Connection 
  Set rs = New ADODB.Recordset   rs.LockType = adLockOptimistic 
  cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb" 
  rs.Open ("维护表"), cnn, adOpenKeyset
  cmdupdate.Enabled = False 
   
Set DataCombo1.RowSource = rs
DataCombo1.ListField = "联系人" End Sub 

Answer 5

谢谢
可以了
你可以给我讲讲问题处在什么地方？
adOpenKeyset  
不说也给分的
谢谢