小吳 VBQA 程式設計討論

請教各位
我寫了一段程式,但是在我按下ADD按鈕時,CPU就滿載了,能幫我看看是哪裡錯了嗎,
Private Sub Form_Load()
ConnStr = "provider=microsoft.jet.oledb.4.0;" & _
　　"data source = " & App.Path & "\Main.mdb"
　　Conn.Open ConnStr
　　sql = "Select * From Product Where AE003 = '1' Order By AE001"
　　rs.CursorLocation = adUseClient
　　rs.Open sql, Conn, adOpenKeyset, adLockPessimistic
　　Set DataGrid1.DataSource = rs
End Sub
Private Sub cmdAdd_Click()
rs.AddNew
　　rs("AE001") = AE001
　　rs("AE002") = AE002
　　rs.Update
End Sub
謝謝各位