[求助]数据库 插入语句的问题！[online]

Question

ad = New OleDbDataAdapter("insert into enter(ID,pass_word,sex)values(" _
                                  & "@ID,@pass_word,@sex)", conn)
        If Len(Trim(nametxt.Text)) >= 6 AndAlso Len(Trim(wordtxt.Text)) Then            If wordtxt.Text = rewordtxt.Text Then
                '用户密码
                Dim paramet As New OleDbParameter("@pass_word", OleDbType.VarChar, 64)
                paramet.Value = Trim(wordtxt.Text)
                ad.InsertCommand.Parameters.Add(paramet)
                '用户名
                paramet = New OleDbParameter("@ID", OleDbType.VarChar, 64)
                paramet.Value = nametxt.Text
                ad.InsertCommand.Parameters.Add(paramet)
                '用户性别
                paramet = New OleDbParameter("@sex", OleDbType.VarChar, 64)
                paramet.Value = Trim(sexlist.SelectedItem.Value)
                ad.InsertCommand.Parameters.Add(paramet)                conn.Open()
                ad.Fill(Ds1, "enter")
                conn.Close()
                MsgBox("您已经成功注册，请到登陆页面登陆！", MsgBoxStyle.YesNo, "欢迎您的加入")
            Else
                MsgBox("您输入的密码不匹配，请再次输入！", MsgBoxStyle.OKOnly, "密码错误！")
                wordtxt.Text = ""
                rewordtxt.Text = ""            End If        Else
            MsgBox("注册信息不能为空，并且长度需大于 6 ", MsgBoxStyle.OKOnly)        End If
=========================================================================================
一前上是偶的代码，我想实现用户注册的功能！
错误于：ad.InsertCommand.Parameters.Add(paramet)类同处。

Answer 1

大家帮我解决一下啊！3Q了 ^v^%

Answer 2

自己顶一下，谁能来帮帮我啊？

Answer 3

郁闷啊，谁帮我解决一下呀！！！！！！！！！