SaraM,
I've modified your code to add a little error handling as Ridders suggested. You could run this and see if it presents you with an error message.
Code:
Private Sub cmdLink_Click()
On Error Goto ErrHandler
Dim vDB As DAO.Database
Dim vRST As DAO.Recordset
Dim strSQLObject As String
Dim strSQLFiles As String
Set vDB = CurrentDb
strSQLObject = "SELECT * from tblobject order by objectnumber"
Set vRST = vDB.OpenRecordset(strSQLObject, dbOpenDynaset, dbSeeChanges)
'DoCmd.SetWarnings False
vRST.MoveFirst
Do While Not vRST.EOF
strSQLFiles= "INSERT INTO tblObjectFile (fldobjectid,fldFileID)"
strSQLFiles = strSQLFiles & " SELECT " & vRST!objectid & ", fldFileID FROM tblfile where instr(fldfile," & Chr(34) & vRST!Objectnumber & Chr(34) & ") >0 "
'DoCmd.RunSQL strSQLFiles
vDB.Execute strSQLFiles, dbFailOnError 'Per ridders52
vRST.MoveNext
Loop
vRST.Close
vDB.Close
ExitHandler:
'DoCmd.SetWarnings True
Set vRST = Nothing
Set vDB = Nothing
Exit Sub
ErrHandler:
Msgbox "Error in cmdLink_Click #" & Err.Number & ": " & Err.Description
Resume ExitHandler
End Sub