前辈们,数据库中的东西显示不出来

[zipuliu]

Private Sub DataReport_Initialize()
Dim AdoCon As New ADODB.Connection
Dim AdoRec As New ADODB.Recordset
Dim txt As New Collection
Dim ctl As Object
AdoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"


AdoRec.Open "select * from student", AdoCon
Set dare.DataSource = AdoRec


For Each ctl In Me.Sections.Item("Section1").Controls
If TypeName(ctl) = "RptTextBox" Then
Select Case ctl.Name
Case "Text1"
ctl.DataField = AdoRec.Fields("name").Name
Case "Text2"
ctl.DataField = AdoRec.Fields("id").Name

End Select
End If
Next
End Sub
哪里错了啊,

[zipuliu]

解决

[cqq_chen]

收分

[clear_zero]

蹭蹭

[lcsfxs]

路过