With dr1
.Sections("Section1").Controls("txtBranch").DataField = rs("branch")
End With

But there is an error message. What's the problem ?