请教更新语句

dim ssql as string
Dim strConn As String
Dim rs1 As New ADODB.Recordset,rs2 As New ADODB.Recordset,rs3 as ADODB.Recordset
dim i as long

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "F:" & "\jjtb.mdb;Persist Security Info=False;Jet OLEDB:database Password=A123456;"
ssql="select * from tb2"
rs2.Open ssql, strConn, adOpenKeyset, adLockOptimistic

ssql="select * from tb1"
rs1.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs1.recordcount
    set rs3=rs2.Clone
    rs3.Filter="员工号='" & rs1!员工号.value & "'"
    if rs3.EOF=false then
        rs1!奖金.value=rs3!奖金.value
        rs1.update
    end if
   
    rs1.movenext
next

rs1.close:set rs1=nothing
rs2.close:set rs2=nothing
set rs3=nothing