参看下面的代码
创新互联建站长期为上千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为乐至企业提供专业的网站建设、网站制作，乐至网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
Public Sub main()
Dim str As String = Application.StartupPath "\videocapx.ocx"
Shell("regsvr32.exe /s """ str """", AppWinStyle.NormalFocus)'这里如果文件名包含空格，需要把整个文件名用双引号引起来哦，切记
Application.Run(New Form1)
End Sub
步骤如下：
1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件（多半是没有的），要是有了就直接看第2步吧。
然后放到C:\WINDOWS\system32目录下。
2. 在VS 2005中注册MSADODC.ocx和MSDATGRD.ocx这两个控件。在VS 2005中点击"Tools" -- "Visual Studio 2005 Command Prompt"，输入如下命令即可：
regsvr32 msadodc.ocx
regsvr32 msdatgrd.ocx
点击菜单：项目=》添加引用 弹出窗口后选择“COM”项，然后找到你要加载的控件。
记得先调用CMD使用 regsvr32 注册你准备加载的控件哈。
