lave kode fra Access97 til VB

Hej er der nogen der kan lave denne kode om så det virker i VB..

kode start------

    Dim db As DAO.database
  Dim rel As DAO.Relation
  \'Open the database
    On Error GoTo open_file
   
    Set db = OpenDatabase(database)
   
  \' This key already exists in the Northwind database.
  \' For the purposes of this example, we\'re going to
  \' delete it and then recreate it
  \'db.Relations.delete

On Error GoTo er_opdateret
     
 
  db.Relations.delete (\"TA_UddannelsesniveauTA_Testpersoner Stamdata\")
 

MsgBox \"Opdateringen fuldført\"
    DoCmd.Quit
  Exit Function
 
    Else

kode slut --------