一个简单的教研室管理系统，在用户登录到主界面以后，有一个个人资料修改的菜单，在该子窗体中的设计中，我添加了一个DataGrid1，想用它来显示当前用户的个人信息，以便进行修改，在模块中定义了Public curname As String，想用curname来记录当前用户的用户名，curname = Trim(txtUser.Text)，txtUser.Text是当前用户输入的用户名。
子窗体的代码如下：
Private Sub Form_Load()
Dim rs_book As New ADODB.Recordset
Dim sql As String
On Error GoTo loaderror
sql = "select * from 教师数据库 where 用户名= '" & curname & "'"
rs_book.CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic     '打开数据库
'设定datagrid控件属性
DataGrid1.AllowAddNew = True                                '不可增加
DataGrid1.AllowDelete = True                                 '不可删除
DataGrid1.AllowUpdate = True

Set DataGrid1.DataSource = rs_book
'cmdcancel.Enabled = False
Exit Sub
loaderror:
   MsgBox Err.Description
End Sub
运行后就提示至少有一个参数未被指定值