VB6.0中用DataGrid数据库查询

Question

请大家你们好：
我要“VB6.0中用DataGrid1数据库查询”代码
打开“Excel数据”按钮，链接DataGrid1控件（不用Adodc1控件）显示数据，查询输入文本框身份证号码，显示所有信息的代码。

Answer 1

我提供核心代码块，剩下的自己解决

    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & _
    "\data.xls;Extended Properties=Excel 8.0"
    
    Set rs = CreateObject("ADODB.Recordset")
    rs.CursorLocation = adUseClient
    rs.Open "select * from [Sheet1$]", cn, 1, 1
    
    Set datagrid1.DataSource = rs