---------------------------------------数据添加问题------------------------------------------

我现在有一个问题不明白谢谢指教:

我这个程序主要实现的是:添加数据入数据库(但不能添加相同帐号的的数据):

Dim objConn As New OleDbConnection
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("good.mdb")

objConn.Open()
Dim objCmd As New OleDbCommand
objCmd.Connection = objConn
objCmd.CommandText = "select * from arg where name='" & name.Text & "'"
Dim objReader As OleDbDataReader = objCmd.ExecuteReader()
If objReader.Read() = True Then
mg.Text = "有这个人呀"

objReader.Close()
objConn.Close()
Else

'没有相同帐号的.加入数据...
' mg.Text = "没有这个人呀"

'Dim objCmd As New OleDbCommand
objCmd.Connection = objConn
objCmd.Parameters.Add("@name", OleDbType.Char).Value = name.Text
objCmd.Parameters.Add("@pwd", OleDbType.Char).Value = pwd.Text
objCmd.Parameters.Add("@sex", OleDbType.Char).Value = sex.SelectedItem.Text
objCmd.Parameters.Add("@mail", OleDbType.Char).Value = mail.Text
objCmd.Parameters.Add("@address", OleDbType.Char).Value = address.Text
objCmd.CommandText = "insert into arg (name,pwd,sex,mail,address) values(?,?,?,?,?)"
objCmd.ExecuteNonQuery()
objConn.Close()

End If


当我插入不同帐号时:出现的错误是:


OleDbCommand 是当前正忙的 Open, Fetching。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.InvalidOperationException: OleDbCommand 是当前正忙的 Open, Fetching。