命名空间不对宽渣。
网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了仁布免费建站欢迎大家使用！
添加.NET引用“Microsoft Office Interop”，或者宏腔COM引用"Microsoft Office 12.0 Object Library "和"Microsoft Excel 14.0 Object Library"。
声明应该是这样的：
Dim xA As Microsoft.Office.Interop.Excel.Application
除非蔽巧衫你 Imports Microsoft.Office.Interop 过，才可以 Dim xA As Excel.Application。
第一处是第五行：sqlcmd.Connectext = 改毁漏为灶余团隐橘 sqlcmd.CommandText=
第二处是第七行：SqlConnection1.Close() '打开连接
改乘SqlConnection1.open()
1、需要定义的类型不存在，如：dim a as xx，而xx是没定义的（可能xx写错了）,需要先定义xx类型。
2、工具：vb6
3、用户定义类型未定义错误分三类：
a)写错拦旦了默认变量类型名，如：dim a as intege，改成dim a as integer即可。
b)写错了自定义变量类型名，如自定义变量a1，写成了al，改正成a1即可。
c)定义了某种引用类型的变量类型，简猛扰而未引知冲用该对象，如：
dim conn as ADODB.Connection，
而未在工程中引用Microsoft ActiveX Data Objects 2.5 Library，工程中引ADO即可。
Dim APP_Excel As Object
Dim Excel_Workbook As Object '定义两个对象，这样的好处是避免了Excel的引用中御（如果你直接引用，在别的客户机上如果EXCEL版本较低吵培陆则会出错）
APP_Excel = CreateObject("Excel.Application") '创建Excel应用程序
Excel_Workbook =APP_Excel.workbooks.add() '生成新工升顷作簿
APP_Excel.visible = True
'如果你实在要坚持你的用法就在引用后：Imports Microsoft.Office.Interop
