run time error 70 DCOM problem ?? eller

har en kode,
hvor det er muligt at ændre brugernavn, og password på
sin profil.

Men når jeg kører det, for jeg run time error 70

Fandt noget i KB men fik ikke rigtig noget ud af det.
her
http://support.microsoft.com/support/kb/articles/Q180/3/84.asp

Her er kilden ->
'************************************************
Dim Bruger1 As String
Open "C:\BOF2currentuser.txt" For Input As #1
Line Input #1, Bruger1
Close #1
Dim tempbrugerurl As String
tempbrugerurl = "Brugere\"
Dim brugerurl As String
brugerurl = "Brugere\"
Dim msgbruger1 As String
Dim msgbruger2 As String
msgbruger1 = Bruger1
msgbruger2 = brugernavn

If Data1.Recordset.BOF = False Then
  Data1.Recordset.MoveFirst
End If
If nytpw1 = nytpw2 Then
  Do While Data1.Recordset.EOF = False
    If Bruger1 = Data1.Recordset("BrugerNavn") Then
      If almpassword = Data1.Recordset("BrugerPassword") Then
        'database opdateringer
        Data1.Recordset.Edit
            Data1.Recordset("BrugerNavn") = brugernavn
            Data1.Recordset("BrugerPassword") = nytpw2
        Data1.Recordset.Update
        'fil ændringer
        Bruger1 = Bruger1 & ".mdb"
        brugerurl = brugerurl & Bruger1
        brugernavn = brugernavn & ".mdb"
        tempbrugerurl = tempbrugerurl & brugernavn
        FileCopy brugerurl, tempbrugerurl
        Kill brugerurl
        MsgBox "Bruger '" & msgbruger1 & "' Er nu ændret til '" & msgbruger2 & "' Og programmet afslutter"
        End
      Else
      MsgBox "Det intastede password stemmer ikke med databasen, prøv igen"
      End
      End If
    Else
      Data1.Recordset.MoveNext
    End If
  Loop
Else
  MsgBox "De to nye passwords stemmer ikke overens, prøv igen"
  Form2.Show
  Unload Me
End If
Form1.Show
Unload Me