大神快进，插入数据的问题，谢谢啦！

我的登录事件代码
Protected Sub btnEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEdit.Click
Dim conn As New SqlConnection()
Dim cmd As SqlCommand
Dim SQLStr As String
conn.ConnectionString = "Data Source =.\SQLEXPRESS;AttachDBFilename=|DataDirectory|\zongheceping.mdf;Integrated Security=True;Pooling=False" ' 定义连接串
conn.Open()
SQLStr = "Insert into Student(Studentno,Sname,Ssex,Sage,Spassword,Sclass,Sdepartment) values(@Studentno,@Sname,@Ssex,@Sage,@Spassword,@Sclass,@Sdepartment)" '带参数的SQL命令
cmd = New SqlCommand(SQLStr, conn) '创建各参数对象，并将它们加入Command对象
cmd.Parameters.Add(New SqlParameter("@Studentno", SqlDbType.VarChar, 20)) '学号
cmd.Parameters.Add(New SqlParameter("@Sname", SqlDbType.VarChar, 20)) '姓名
cmd.Parameters.Add(New SqlParameter("@Ssex", SqlDbType.Char, 4)) '性别
cmd.Parameters.Add(New SqlParameter("@Sage", SqlDbType.SmallInt)) '年龄
cmd.Parameters.Add(New SqlParameter("@Spassword", SqlDbType.VarChar, 20)) '密码
cmd.Parameters.Add(New SqlParameter("@Sclass", SqlDbType.VarChar, 50)) '班级
cmd.Parameters.Add(New SqlParameter("@Sdepartment", SqlDbType.VarChar, 50)) '系别
'读取用户输入的数据，并设置各参数值
cmd.Parameters("@Studentno").Value = Request("Studentno")
cmd.Parameters("@Sname").Value = Request("Sname")
cmd.Parameters("@Spassword").Value = Request("Spassword")
cmd.Parameters("@Ssex").Value = Request(Ssex.SelectedItem.Text)
If Request("Sage") = "" Then '年龄为空则写回孔
cmd.Parameters("@Sage").Value = " "
Else
cmd.Parameters("@Sage").Value = Request("Sage")
End If
If Request("Sclass") = "" Then
cmd.Parameters("@Sclass").Value = " "
Else
cmd.Parameters("@Sclass").Value = Request("Sclass")
End If
If Request("Sdepartment") = "" Then
cmd.Parameters("@Sdepartment").Value = " "
Else
cmd.Parameters("@Sdepartment").Value = Request("Sdepartment")
End If
cmd.ExecuteNonQuery() '执行SQL语句
conn.Close() '关闭数据连接
End Sub

错误看图

你至少要发出 sql语句是什么东西。建议用 xxx=‘’这种格式，自动识别