datagrid+EXCEL 添加,删除,搜索记录

我是ADO连接的EXCEL，现在在Dtatgrid里能显示EXCEL表里的数据，求向EXCEL里添加，删除，和查询记录的代码!
不要给我说用ACCESS和SQL啥子的，没有License --------------------编程问答-------------------- 你使用ADO连接Excel文件，不用Sql怎么搞？ --------------------编程问答-------------------- 楼上，我的意思是不要给我说用ACCESS和SQL数据库代替，我需要代码ADO连接EXCEL的代码 --------------------编程问答--------------------

引用 2 楼 lpanduona 的回复:

楼上，我的意思是不要给我说用ACCESS和SQL数据库代替，我需要代码ADO连接EXCEL的代码

哦 --------------------编程问答--------------------

Option Explicit

    Public cn As New ADODB.Connection

    Public rs As New ADODB.Recordset

Sub main()

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Data\报告.xls" & ";Extended Properties='Excel 8.0;HDR=Yes'"

    cn.Open '打开连接

    frmMdiMain.Show

End Sub

--------------------编程问答-------------------- 向EXCEL里添加，删除，和查询记录的代码!
--------------------编程问答--------------------

引用楼主 lpanduona 的回复:

我是ADO连接的EXCEL，现在在Dtatgrid里能显示EXCEL表里的数据，求向EXCEL里添加，删除，和查询记录的代码!
不要给我说用ACCESS和SQL啥子的，没有License

引用楼主 lpanduona 5楼的回复:

向EXCEL里添加，删除，和查询记录的代码!

这些都需要写SQL结构化查询语句,ACCESS数据库表如何查询,EXCEL连接好也是那么写.既然LZ说:不要给我说用ACCESS和SQL啥子的，没有License,我想大家也就没法答复了.

--------------------编程问答--------------------

    

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Data\报告.xls" & ";Extended Properties='Excel 8.0;HDR=Yes'"

    Adodc1.RecordSource = "select * from [Sheet1$] where 时间>#" & Date & "#"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

--------------------编程问答-------------------- 删除代码怎么，我用Adodc1.Recordset.Delete会报错，查了下说是EXCEL不能删除一整行，需要分别删除单元格，求代码

补充：VB ,  数据库(包含打印，安装，报表)