步骤如下：
专注于为中小企业提供成都网站制作、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业香坊免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
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
你这种做法应该是仿照vba的代码，vb.net里面不是这样做的。
你要做的是打开网页、自动填写然后提交表单吧？
应该用webbrowser来加载页面。
需要引用：Microsoft HTML Object Library
在webbrowser的状态为ready的时候，执行:
'取得要填写的表单名称，并定义为一个html元素变量text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")
'给表单元素text赋值
text.InnerHtml = “张三”
'找到提交按钮
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")
'执行点击动作
btnSubmit.InvokeMember("click")
参看下面的代码
Public Sub main()
Dim str As String = Application.StartupPath "\videocapx.ocx"
Shell("regsvr32.exe /s """ str """", AppWinStyle.NormalFocus)'这里如果文件名包含空格，需要把整个文件名用双引号引起来哦，切记
Application.Run(New Form1)
End Sub
