ASP Error

[umshamma]

I am creating an asp programm for our employee leaves tracking... i am getting this error ADODB.Recordset (0x800A0E7D)
The connection cannot be used to perform this operation. It is either closed or invalid in this context.
/leave/add_to_leave.as p, line 16


here is the code:

<%

'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsdata 'Holds the recordset for the new record to be added to the database
Dim strSQL 'Holds the SQL query for the database

Set adoCon = Server.CreateOb ject("ADODB.Con nection")
adoCon.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" & Server.MapPath( "leave.mdb" )

Set rsdata = Server.CreateOb ject("ADODB.Rec ordset")
strSQL = "SELECT leave.UserID, leave.Name, leave.Workgroup , leave.FromDate, leave.ToDate, leave.LeaveType , leave.Reason,le ave.FromTime, leave.ToTime, leave.Reason FROM leave;"

rsdata.CursorTy pe = 2
rsdata.LockType = 3
rsdata.Open strSQL

rsdata.AddNew

'Add a new record to the recordset
rsdata.Fields(" UserID") = Request.Form("u serid")
rsdata.Fields(" Name") = Request.Form("n ame")
rsdata.Fields(" Workgroup") = Request.Form("w orkgroup")
rsdata.Fields(" TeamLeader") = Request.Form("T eamLeader")
rsdata.Fields(" ContactNumber") = Request.Form("C ontactNumber")
rsdata.Fields(" FromDate") = Request.Form("F romDate")
rsdata.Fields(" ToDate") = Request.Form("T oDate")
rsdata.Fields(" LeaveType") = Request.Form("L eaveType")
rsdata.Fields(" FromTime") = Request.Form("F romTime")
rsdata.Fields(" ToTime") = Request.Form("T oTime")
rsdata.Fields(" Reason") = Request.Form("R eason")

rsdata.Update

'Reset server objects
rsdata.Close
Set rsData = Nothing
Set adoCon = Nothing

'Redirect to the leave.asp page
Response.Redire ct "leave_form.htm "
%>