sql语句问题Insert Into admin ( username,password,email ) Values ( ?,?,?)

为什么Insert Into vode (VodeUsername , VodeBody) Values(?,?) 这一句对而Insert Into admin ( username,password,email )  Values ( ?,?,?)这一句就不对？源代码：---------------------------------------------------------------------------------
  Sub Submit_Onclick(sender as Object, e as EventArgs)
    Dim Conn As OleDbConnection
    Dim Cmd As OleDbCommand
    Dim CmdCheck As OleDbCommand
    Dim Rd as OleDbDataReader
    
    Dim ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db.asa")
    Conn = New OleDbConnection(ConnStr)
    Conn.Open
    
    Dim SQLCheck = "Select username From admin where username='" & Username.Text & "'"
    Dim SQL = "Insert Into admin (username , password,addnum, email) Values(?,?,?,?)"
               Insert Into vode (VodeUsername , VodeBody)            Values(?,?)
    CmdCheck = New OleDbCommand(SQLCheck,Conn)
    Cmd = New OleDbCommand( SQL,Conn )
    Rd = CmdCheck.ExecuteReader()
    
    If Rd.Read() Then
      Msg.Text="用户名重复"
      Conn.Close()
    Else
      Conn.Close()
      Conn.open()
      Cmd = New OleDbCommand(SQL,Conn)
      Cmd.Parameters.Add( New OleDbParameter("username", OleDbType.Char,100))
      Cmd.Parameters.Add( New OleDbParameter("password", OleDbType.Char,100))
      Cmd.Parameters.Add( New OleDbParameter("addnum", OleDbType.integer))
      Cmd.Parameters.Add( New OleDbParameter("email", OleDbType.Char,100))
      Cmd.Parameters("username").Value = username.text
      Cmd.Parameters("password").Value = password.text
      Cmd.Parameters("addnum").Value = 0
      Cmd.Parameters("email").Value = email.text
      Cmd.ExecuteNonQuery()
      If Err.Number<>0 Then
        Msg.text=Err.Description
      Else
        Msg.text=ok""
      End If
      Conn.Close()
    End If
    
  End Sub