Burda nerde yanlis yapiyorum?

[esengul]

amacim bir tablodan baska databasedeki tabloyu update etmek. Yazdigim kod;
Dim db As Database
Dim rsSource As DAO.Recordset
Dim rsDestination As DAO.Recordset
Dim rs As Connection
Dim wsobj As Workspace
Set db = wsobj.OpenDatabase("R:\MADE Pod\MDN Data\MDN MMHg Data\MMHgSecondEntryData\MHg1-050126-1.mdb", dbLangGeneral)
Set rsSource = CurrentDb.OpenRecordset("MethylHgSamples2ndtEntry" , dbOpenDynaset)
Set rsDestination = db.OpenRecordset("qryAnalysisDataSingle", dbOpenDynaset)
Do While Not rsSource.EOF
rsDestination!Runno = rsSource!Run
rsDestination.Update

rsSource.MoveNext

Loop
rsSource.Close
rsDestination.Close
ve aldigim error ise;
Run time error '91' Object variable or with bllock variable not set"
bu errorden sonra debug et dedigimde set db =.. satiri highlight ediyor. Nedir hatam?