请教各位关于ADO记录集做为连续窗体数据源的问题!

majian77

怎样使连续窗体全部显示ADO记录集
Sub datasourcetest()
Dim rs1 As New ADODB.Recordset
Dim prm As String
prm = "sj-03/2456"
Set rs1 = CurrentProject.Connection.Execute("[purchase-test] '" & prm & "'")
Me.SupplierName = rs1.Fields("SupplierName")
Me.PurchaseOrderPo = rs1.Fields("urchaseOrderPo")
Me.PurchaseDate = rs1.Fields("urchaseDate")
Me.SupplyDate = rs1.Fields("SupplyDate")
Me.MaterialName = rs1.Fields("MaterialName")
Me.PurchaseQTY = rs1.Fields("urchaseQTY")
Me.MaterialPrice = rs1.Fields("Price")
End Sub
这样做只能得到一条记录,我是要显示ADO中所有数据,谢谢

majian77

搞掂,谢谢ADAM!