VB操作Excel

        'Dim 文件路径 As String = System.Environment.CurrentDirectory + "\AAA.xls"
        'Dim 字符 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 文件路径 + ";Extended Properties='Excel 8.0;'"
        'Dim 连接 As New System.Data.OleDb.OleDbConnection(字符)
        '连接.Open()
        'Dim 操作 As New System.Data.OleDb.OleDbCommand()
        '操作.Connection = 连接
        '操作.CommandText = "Insert into [Sheet1$](a,b) values('aaaaaaaaaaaaa','bbbbbbbbbbbbbbb')"
        '操作.ExecuteNonQuery()


        'Dim 读取数据 = "SELECT * FROM [Sheet1$]"
        'Dim 读取 As New System.Data.OleDb.OleDbDataAdapter(读取数据, 连接)
        'Dim 数据表 As New DataSet()
        '读取.Fill(数据表, "[Sheet1$]")
        '连接.Close()
        'Dim aa As DataTable = 数据表.Tables(0)

VB.NET数据库查询代码遇到问题在写查询数据库某表里有多少条记录数 显示在TEXTBOX控件里出问题！textbox1无法取得值！！

        Dim 文件路径 As String = System.Environment.CurrentDirectory + "\AAA.xls"
        Dim 字符 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 文件路径 + ";Extended Properties='Excel 8.0;'"
        Dim 连接 As New System.Data.OleDb.OleDbConnection(字符)
        连接.Open()
        Dim 操作 As New System.Data.OleDb.OleDbCommand()
        操作.Connection = 连接
        操作.CommandText = "Insert into [Sheet1$](a,b) values('aaaaaaaaaaaaa','bbbbbbbbbbbbbbb')"
        操作.ExecuteNonQuery()


        Dim 表 As New DataTable
        Dim 读数据 As System.Data.OleDb.OleDbDataReader


        操作.CommandText = "SELECT * FROM [Sheet1$]"
        读数据 = 操作.ExecuteReader()
        表.Load(读数据)


        Dim 作 As New System.Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", 连接)
        读数据 = 作.ExecuteReader()
        表.Load(读数据)
        MessageBox.Show(表.Rows.Count.ToString("0条记录"))