object variable or with block variable not set

I am getting this error in this part of my program. It confuses me because the installed version of this program works, but my computer was formatted and i had to copy the program from a backup disk, and the source code version will not run now.

>>> indicates error



Dim intcount As Integer
Do
>>>>> dtaMethods.Recordset.Index = "PrimaryKey"
dtaMethods.Recordset.Seek "=", buf
If dtaMethods.Recordset.NoMatch Then
intResponse = MsgBox("Unknown Method. Do you wish to add a new method?", vbYesNo, "Unknown Method")

If intResponse = vbYes Then
frmNewMethod.Show vbModal
Call GetMethods
mbuf = Trim$(Methods)
buf = ""
buf = Left(Trim(mbuf), 3)
If Len(Trim(mbuf)) > 3 Then
mbuf = Right(Trim(mbuf), Len(mbuf) - 4)
End If
Else
Call GetMethods
mbuf = Trim$(Methods)
buf = ""
buf = Left(Trim(mbuf), 3)
If Len(Trim(mbuf)) > 3 Then
mbuf = Right(Trim(mbuf), Len(mbuf) - 4)
End If
End If

Else
intcount = 2
End If
Loop Until intcount = 2