Problem with rs.update I think

Private Sub Populate_Click()
' populate the salary schedule columns

Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
'Dim SQL_query As String
Dim Counter As Integer
Dim BaseSalary As Long
Dim Index As Currency
Dim Salary As Long
'Dim yearsexp As Integer
Dim Updated As Boolean

Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
Counter = 0
Index = 0

'open the recordset to get all the salary values
rs.Open ("SELECT * FROM salaryschedule"), CurrentProject.Connection
rs2.Open ("SELECT * FROM contractbase"), CurrentProject.Connection
rs3.Open ("SELECT * FROM indexes"), CurrentProject.Connection

rs.MoveFirst
rs2.MoveFirst
rs3.MoveFirst

'loop with counter based on year of experience and perform calculations of each salary amount based on year and index pulled from DB
Do Until Counter = 21
   BaseSalary = rs2.Fields("Basesalary")
   Index = rs3.Fields("bachelorsindex")
   Salary = (BaseSalary * Index)

   'Updated = rs.Update("400", Salary)
   Updated = rs.Update("400", Salary) 'it errors out here constantly with "expected function or variable error"
   Counter = Counter + 1
   rs.MoveNext
   rs3.MoveNext
Loop