'定义参数
Dim id As New SqlClient.SqlParameter("@ id", SqlDbType.Int)
Dim name As New SqlClient.SqlParameter("@ name", SqlDbType.VarChar, 10)
Dim sex As New SqlClient.SqlParameter("@ sex", SqlDbType.Char, 2)
Dim xl As New SqlClient.SqlParameter("@ xl", SqlDbType.VarChar, 4)
'将参数集加到定义好的命令对象中
mycom.Parameters.Add(id)
mycom.Parameters.Add(name)
mycom.Parameters.Add(sex)
mycom.Parameters.Add(xl)
'为参数赋值
id.Value = CInt(tbid.Text)
name.Value = tbname.Text
If rb1.Checked = True Then
sex.Value = "男"
Else
sex.Value = "女"
End If
xl.Value = Cbbxl.Text
Dim sqlstr As String
sqlstr = "insert into 基本信息表(编号,姓名,性别,学历) values(@ id,@ name,@ sex,@ xl)"
如果我把sqlstr = "insert into 基本信息表(编号,姓名,性别,学历) values(@ id,@ name,@ sex,@ xl)"
写成sqlstr = "insert into 基本信息表(编号,姓名,性别,学历) values(1,'张三','男','大专')"则执行正确
请大家帮忙看一下我写的参数有什么问题
应该怎么改

Dim id As New SqlClient.SqlParameter("@ id", SqlDbType.Int)中的@与id不要留空格（以下的几参数也是一样）
改成----sqlstr = "insert into 基本信息表(编号,姓名,性别,学历) values(@id,@name,@sex,@xl)"

我也这样改了
但是还是提示错误
我的完整代码是
'定义参数
Dim id As New SqlClient.SqlParameter("@id", SqlDbType.Int)
Dim name As New SqlClient.SqlParameter("@name", SqlDbType.VarChar, 10)
Dim sex As New SqlClient.SqlParameter("@sex", SqlDbType.Char, 2)
Dim xl As New SqlClient.SqlParameter("@xl", SqlDbType.VarChar, 4)
'将参数集加到定义好的命令对象中
mycom.Parameters.Add(id)
mycom.Parameters.Add(name)
mycom.Parameters.Add(sex)
mycom.Parameters.Add(xl)
'为参数赋值
id.Value = CInt(tbid.Text)
name.Value = tbname.Text
If rb1.Checked = True Then
sex.Value = "男"
Else
sex.Value = "女"
End If
xl.Value = Cbbxl.Text
Dim sqlstr As String
sqlstr = "insert into 基本信息表(编号,姓名,性别,学历) values(@id,@name,@sex,@xl)"
If mycon.State = ConnectionState.Closed Then mycon.Open()
remycom(sqlstr).ExecuteNonQuery()
mycon.Close()
sqlstr = "select * from 基本信息表"
dset.Clear()
If mycon.State = ConnectionState.Closed Then mycon.Open()
redset(sqlstr, "基本信息表")
mycon.Close()


Module Executesql
Public mycom As SqlClient.SqlCommand
Public Function remycom(ByVal sqlstr As String) As SqlClient.SqlCommand
' Dim mycom As SqlClient.SqlCommand
mycom = New SqlClient.SqlCommand(sqlstr, mycon)
remycom = mycom
End Function
End Module
执行到remycom(sqlstr).ExecuteNonQuery()提示如下错误

把 remycom(sqlstr).ExecuteNonQuery()放在
try
下
catch sqlex as sqlexception
msgbox "数据库信息：" & sqlex.message
finally
mycon.Close()
end try
按照提示，即可发现真正的错误！

提示"必须声明变量"@id""