Urgent Data Report Problem

[ayionick]

[SIZE=3]
Private Sub cmdPrint_Click()
Dim rsPrint As New ADODB.Recordset
 
Set rptStore.DataSource = rsPrint
rptStore.DataMember = rsPrint.DataMember
strSQL = "SELECT * FROM StorePOS WHERE Flag <> 'D'"
rsPrint.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rsPrint.Filter = "ID = " & txtFields(txtID_StoreID).Text & " "
 
'Set Textbox Datafields
With rptStore.Sections("Section6").Controls       'Section is the section you create in datareport
    .Item("txtCompleteAddress").DataField = rsPrint.Fields("CompleteAddress").Name
    .Item("txtID").DataField = rsPrint.Fields("ID").Name
    .Item("txtStoreName").DataField = rsPrint.Fields("StoreName").Name
    .Item("txtMotherStore").DataField = rsPrint.Fields("MotherStore").Name
    .Item("txtOwnershipType").DataField = rsPrint.Fields("OwnershipType").Name
    .Item("txtDateOpened").DataField = rsPrint.Fields("DateOpened").Name
    .Item("txtStoreType").DataField = rsPrint.Fields("StoreType").Name
    .Item("txtStatus").DataField = rsPrint.Fields("Status").Name
    .Item("txtNew").DataField = rsPrint.Fields("New").Name
    .Item("txtStatusDate").DataField = rsPrint.Fields("StatusDate").Name
    .Item("txtTransferred").DataField = rsPrint.Fields("TransferredFrom").Name
End With
rptStore.Refresh
rptStore.Show 1
[/SIZE]

I have this code but I got error message "Datafield "(Empty)" not found." This is done without Data Environment. Please help me with the code. Thanks.