试试插入代码

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As  Long, lpdwProcessId As Long) As Long 
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As  Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As  Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As  Long, lpNumberOfBytesWritten As Long) As Long 
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long,  ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long,lpNumberOfBytesWritten As Long) As Long 
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 

select * from dual;