modul fejl i acces 2 k

Jeg har et script i et modul, men når jeg vil køre dette kommer access med en fejl
"error accessing file. Network connection may have been lost "

Databasen ligger lokalt og scriptet laver kun opdateringer i selve databasen. der er ej heller tale om linkede tabeller eller lign. hvad går der galt ?

script til orientering.:

Public Function Opdater_txt()
    Dim tmp As String
    Dim db As Database
    Dim rs As Recordset
    Dim vagr_heading As String
    Dim vagr_txt As String
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("master", dbOpenDynaset)
     
    tmp = ""
 
  While Not rs.EOF
  If tmp <> rs!vagr_txt Then
  rs.Edit
  rs!vagr_heading = rs!vagr_txt
  rs.Update
  tmp = rs!vagr_txt
  End If
  rs.MoveNext
  Wend
  rs.Close
  Set rs = Nothing
End Function