vbs script starten vanuit access(97)

[Verwijderd]

Vanuit een access(97) database start ik een batch file aan welke weer een vbs script start.


Private Sub Knop_Gebruiker_Verwijderen_Click()
Dim var01, var02
'Gebruiker Verwijderen
var01 = "d:\sbeheer\script\Verwijder_gebruiker.bat " & Me![Accountnaam] & ""
var02 = Shell(var01, 1)
End Sub

Verwijder_gebruiker.bat
d:\sbeheer\script\verwijder_gebruiker.vbs %1


Met shell kan ik niet direckt het script starten geeft hij foutmelding.
Weet imand een manier om het script gelijk vanuit access uit te voeren?

[Verwijderd]

Heb oplossing, met hulp.

Dim var01 As Object
Set var01 = CreateObject("Wscript.Shell")
var01.Run "d:\sbeheer\script\Wachtwoord_gebruiker.vbs