Question

vb提示用户定义类型未定义

Private Sub Command8_Click()
Dim Conn As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=LFS型消音器;Data Source=."

Conn.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from Tab_压力损失", Conn, adOpenDynamic, adLockOptimistic

Dim ExcelApp As New Excel.Application
Dim WorkBookObj As Workbook
Dim SheetObj As Worksheet
Set WorkBookObj = ExcelApp.Workbooks.Open("d:\aa.xls")
Set SheetObj = WorkBookObj.Worksheets.Add
SheetObj.Range("A1").CopyFromRecordset Rs
Set SheetObj = Nothing
WorkBookObj.Save
WorkBookObj.Close
Set WorkBookObj = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub
调试时显示未定义 ，刚接触VB，不懂求教

Answer 1

用户定义类型是一个使相关数据项成组的强大工具。例如，假设此处要定义名为 udtAccount 的用户定义类型：
Public Type udtAccount
Number As Long
Type As Byte
CustomerName As String
Balance As Double
End Type

可以声明一个 udtAccount
类型的变量，分别给各个字段赋值，然后将整个记录传递给打印它的过程，并将其保存至数据库中，对其执行计算，验证各字段的数值，等等。
未定义可能是中间为空,像:
Public Type udtAccount
End Type
可能就是你未在表单中添加控件,在“工程”--“引用”有许多控件,要找到自己要用的.

Answer 2

原因：变量没有被定义
解决方法：给变量定义，as string 字符型， as long 整型等等，定义方式dim public 或private
为啥我答题的时候，只有题目，下面一个字都没有，谁知道具体啥情况

Answer 3

在vb的“工程”菜单中点击“引用”找到 Microsoft Activex Data Objects 6.1 Library 选上确定就可以了

Answer 4

ByVal Button As MSComctlLib.Button

这里提示错误？