主题：[求助]代码出错，帮改正一下

在窗口中单击按键后执行的代码，出错，请帮修改，谢谢

Dim dr As DataRow
Dim C2 As WinForm.TextBox
C2 = e.Form.Controls("TextBox1")

dr = DataTables("注册内容").Find("用户名=e.Form.Controls("TextBox1") ") '找用户名为文本框TextBox1的用户

If dr IsNot Nothing Then '如果找到的话
    dr("真实姓名") = "一"

End If