谁大家告诉我在ACCESS中怎么打开QQ?

Private Sub CmdQQ_Click()
    Dim webAddreess As String
    Dim Web
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    WebAddress = "http://wpa.qq.com/msgrd?V=1&uin=2851379731&Site=UMVsoft&Menu=yes"
    '打开QQ 对话窗口
    Web.Navigate WebAddress
End Sub

以上代码里面的QQ号码改成自己的即可

或者你下载下面示例

示例里面的最下方就是 打开QQ

http://www.accessoft.com/article-show.asp?id=17196