如何用access开一个ie窗口，然后再关闭？

Option Compare Database
 '引用Microsoft Internet Control来实现对IE的调用
 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 Private 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_SYSCOMMAND = &H112
 Private Const SC_MINIMIZE = &HF020&
 Private Const WM_CLOSE = &H10
 Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
 Dim windowsH As LongPrivate Sub open_mop()
 Dim ie As New InternetExplorer
 ie.Visible = True
 ie.Navigate "http://"
 SendMessage ie.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, "&O"
 windowsH = ie.hwnd
 Debug.Print ie.hwnd'PostMessage ie.hwnd, WM_CLOSE, 0, 0        '关闭窗口
End Sub
Private Sub close_mop()
 a = FindWindow(vbNullString, "猫扑的大杂烩 - Microsoft Internet Explorer")
 Debug.Print a
 b = PostMessage(a, WM_CLOSE, 0, 0)
 Debug.Print b
 End Sub