Kill process on Windows NT 6.2

Hej Eksperter,

Jeg har følgende kode som har virket fint på en windows 7 computer.

Nu er min Access database blevet flyttet til en Windows Server NT 6.2, og nu virker den ikke.

Den får det korrekte windows process id og koden fejler ikke, men den lukker ikke processen som den burde.

Kan nogen hjælpe med at forstå hvad der går galt?

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long
Private Const WM_CLOSE = &H10

Public Function KILLAPP(winHwnd As Long)
Dim RetVal As Long
SendMessage winHwnd, WM_CLOSE, 0, 0
End Function