Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & App.Path & "\DATA\TEST.XLS"
rs.Open " Select * From [TEST1$A1:Z65535] Where 型号 Like 'P%'", cn, adOpenKeyset, adModeReadWrite, adCmdText
以上代码执行结果为显示所有数据..而不是显示P开头的数据

rs.Open " Select * From [TEST1$A1:Z65535] Where 型号 Like 'P4%'", cn, adOpenKeyset, adModeReadWrite, adCmdText
以上代码执行结果为显示第2个字符为4的数据（比如P4****,H4****,B4****），而不是显示以P4开头的数据

不知道为什么，请各位帮忙看看，谢谢。

很明显SQL语句错误

请帮忙指导下，我是新手，谢谢了。

早在Access97期间，微软的官方网站就特别作了说明。在Access数据库中，SQL语句中的通配符是*而不是%。所以，你只需将你代码中的%替换为*，应该就能够实现你需要的功能了。

看看这个语句：
rs.Open " Select * From [TEST1$] Where 型号 Like 'P4%'", cn, 3, 2
[TEST1$]是数据表的名称，如果写成[TEST1$A1:Z65535]，好像是VBA中的语句。

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & App.Path & "\ABCD.xls"
rs.Open " Select * From [Sheet1$] Where 型号 Like 'P%'", cn, 3, 2
Do While Not rs.EOF
List1.AddItem rs!型号
rs.MoveNext
Loop

测试了一下没有问题， 'P%'与 'P4%'均正常， 'B%'、 'H%'、 'E%'同样正常。

你好，谢谢指点
我改成了 From [TEST1$] 还是不行...
目前我的做法是  rs.Open " Select * From [TEST1$A1:Z65535] Where Left(型号,1) = 'P'", cn, adOpenKeyset, adModeReadWrite, adCmdText
这样的话是可以的..
还是不解 Like 'P%'为什么会这样.

谢谢指点，改了下还是不行，应该不是通配符的问题

将你的Excel给我，我调试，因为我的Excel根本没有问题。