datareprot打印出错，请帮忙解决

Private Cn As New ADODB.Connection
Private Rs As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim Controlx As Object, ReCounts
ReCounts = 0
With DataReport1
    Set .DataSource = Rs
     .DataMember = " "
    With .Sections("section1")
        For Each Controlx In .Controls
            If TypeOf Controlx Is RptTextBox Then
                Controlx.DataMember = " "
                Controlx.DataField = Rs.Fields(ReCounts).Name
                ReCounts = ReCounts + 1
            End If
        Next
    End With
End With
DataReport1.Refresh
DataReport1.Show
End SubPrivate Sub Form_Load()
Dim SQL1
Cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & _
                    "C:\Program Files\Microsoft Visual Studio\VB98\NWIND.mdb;persist security info=false"
Cn.Open
SQL1 = "select distinct * from Customers"
Rs.CursorLocation = adUseClient
Rs.Open SQL1, Cn, adOpenDynamic, adLockReadOnly, adCmdText
End Sub
每次点击按扭都会报错，请朋友们帮忙