主题：这个COMBOBOX的问题如何解？

我在combobox的selectedindexchanged事件中添加以下代码：
Dim str As String
str=e.Form.controls("combobox1").value

Dim cmd As new sqlcommand
Dim dt As DataTable
Dim dr As DataRow
cmd.c
cmd.commandtext="select * from {user} where [name]='"& str &"'"
cmd.ExecuteReader()
dr=dt.find("")

e.Form.controls("textbox1").text=dr("password")
e.Form.controls("combobox2").value=dr("nlevel")
e.Form.controls("textbox2").text=dr("realname")
运行后提示如下错误：