VB går amok med en DB

Hej for en uges tid siden fik jeg noget til VB af en ekspert og der skulle bare ændres noget i det og så skulle det virke, men det gør det ikke, hvad er det galt ??

Public Function OpretPost()
Set datDB = DBEngine.Workspaces(0)
Set db = dbWS.OpenDatabase("C:\\get.mdb", False)
Set dbtabel = db.TableDefs("multi")
Set dbRS = dbtabel.OpenRecordset

  Set dbRS = dbtabel.OpenRecordset
  With dbRS
    .AddNew
    !Navn = Text5.Text
    !totg = Text11.Text
    !tots = Text10.Text
    .Update
  End With

  db.Close
  Set dbWS = Nothing
  Set db = Nothing
  Set dbRS = Nothing
  Set dbtabel = Nothing
  Set dbFelt = Nothing
End Function


/vh Hatten