...
  lngHWnd = IsEXERunning("mysqld-nt.exe", 1)
  If lngHWnd <> 0 Then
    Debug.Print "mysqld " & lngHWnd
    terminatePID lngHWnd
  End If
...
Private Sub terminatePID(l1 As Long)
   Dim hTask As Long
   Dim lResult As Long
 
   hTask = OpenProcess(PROCESS_TERMINATE, 0&, l1)
   lResult = TerminateProcess(hTask, 1&)
   lResult = CloseHandle(hTask)
End Sub