Below is my SQL statement. I am reading two tables, but would like to update just one. I don't think MS Access allows this as I am receiving a database lock error. How do you go about updating a field when you are reading data from more than one table?

For I = 1 To ListDoc(0).ListItems.count

If ListDoc(0).ListItems.Item(I).Selected = True Then
gKid = CLng(Trim(Mid(Mainfrm.ListDoc(0).ListItems.Item(I).SubItems(3), 1, 10)))
End If

TempSQL$ = "SELECT T980_REPORT_ID.A2_RPT_ID, T980_DD350.A3B_PURCH_OFC_ID FROM T980_REPORT_ID, T980_DD350 WHERE T980_DD350.K_ID = " & gKid & " AND T980_REPORT_ID.K_ID = T980_DD350.K_ID"
Set TempDyna = MyDb.OpenRecordset(TempSQL, dbOpenDynaset)
DBEngine.Idle dbFreeLocks

If TempDyna.RecordCount = 0 Then
Call dfClose(TempDyna) 'phm changed 11/9/01
Exit Sub
End If

If TempDyna("A2_RPT_ID") = "" Or IsNull(TempDyna("A2_RPT_ID")) Then
If Len(TempDyna("A3B_PURCH_OFC_ID")) = 4 Then
TempDyna.Edit
TempDyna.LockEdits = False
TempDyna("A2_RPT_ID") = "0001"
TempDyna.Update
Else
TempDyna.Edit
TempDyna.LockEdits = False
TempDyna("T980_REPORT_ID.A2_RPT_ID") = "00001"
TempDyna.Update

End If

Else
If Len(TempDyna("T980_DD350.A3B_PURCH_OFC_ID")) = 4 Then
TempDyna.Edit
TempDyna.LockEdits = False
TempDyna("T980_REPORT_ID.A2_RPT_ID") = TempDyna("T980_REPORT_ID.A2_RPT_ID") + "0001" 'Air Force
TempDyna.Update
Else
TempDyna.Edit
TempDyna.LockEdits = False
TempDyna("T980_REPORT_ID.A2_RPT_ID") = TempDyna("T980_REPORT_ID.A2_RPT_ID") + "00001" 'Navy
TempDyna.Update
End If

End If

Next I

Call dfClose(TempDyna)