关于SQL统计结果显示在文本框中和 Dim VBExcel As Excel.Application

Question

大家好：
       我在定义 Dim VBExcel As Excel.Application时不能用，是不是那个引用没有打开，或者是别的原因。
    我用SQL语句统针了表中有多少个字段，但不能显示在文本框中。
  请大家帮帮忙

Answer 1

工程-〉引用 -〉选中 Microsoft Excel9.0(或以上) Object Library

Answer 2

Dim rs As New ADODB.Recordset
    rs.Open "select 1 from table1", conn
    text1.Text = rs.Fields.Count
    rs.Close
    Set rs = Nothing