转别人的写法:
Private Sub DataReport_Initialize()
Dim Adors As New ADODB.Recordset
Dim Adoconn As New ADODB.Connection
Dim xx2 As String
xx2 = "中国农业银行"
Adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Extended Properties=Excel 8.0;Data Source =\\services\数据\test\月.xls"
Dim strs As String
strs = "select * from [sheet1$] where 卡类='" + xx2 + "'"
Adors.Open strs, Adoconn, adOpenKeyset, adLockOptimistic
Set DataReport1.DataSource = Adors
With DataReport1
.Sections("section1").Controls.Item("text1").DataField = Adors.Fields(2).Name
.Sections("section1").Controls.Item("text2").DataField = Adors.Fields(3).Name
.Sections("section1").Controls.Item("text3").DataField = Adors.Fields(4).Name
.Sections("section1").Controls.Item("text4").DataField = Adors.Fields(5).Name
.Sections("section1").Controls.Item("text5").DataField = Adors.Fields(6).Name
.Sections("section1").Controls.Item("text6").DataField = Adors.Fields(7).Name
.Sections("section1").Controls.Item("text7").DataField = Adors.Fields(8).Name
.Sections("section1").Controls.Item("text8").DataField = Adors.Fields(9).Name
.Sections("section1").Controls.Item("text9").DataField = Adors.Fields(10).Name
.Show
End With
End Sub