vb中用winrar压缩access数据库是遇到有关问题

vb中用winrar压缩access数据库是遇到问题
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
  MsgBox "请选择文件！"
  Exit Sub
End If
Label2.Caption = "正在进行压缩，请稍后......"
fname = Mid(Trim(Text1.Text), InStrRev(Trim(Text1.Text), "\") + 1)
Rarexe = App.Path & "\winrar.exe"
src = App.Path & "\data\项目信息.mdb"
des = "d:\" & fname
FileString = Rarexe & "a-ep" & des & " " & src
Result = Shell(FileString, vbHide)
If Err.Number <> 0 Then
  MsgBox "无法压缩数据库：" & Err.Description, vbCritical
  Exit Sub
End If
  Do
  If GetProcessVersion(Result) = 0 Then
  Exit Do
  End If
  Loop
  FileCopy des, Trim(Text1.Text)
  Kill des
  Label2.Caption = "压缩完毕！文件保存在：" & Chr(13) & Trim(Text1.Text)
End Sub

我在用这个代码运行的时候，提示说子程序或函数未定义， 是GetProcessVersion这个的问题。为什么会有这样的错误啊？我的代码是按照课本上写的，我也不知道GetProcessVersion是什么。


------解决方案--------------------
GetProcessVersion？
------解决方案--------------------
Declare Function GetProcessVersion Lib "kernel32.dll" (ByVal ProcessId As Long) As Long
------解决方案--------------------

就是你未定义的 GetProcessVersion 函数