Qy.ActiveConnection = Conn
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open strDNS
strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
Set Conn = New ADODB.Connection
Set rs = Conn.Execute(strSQL)
执行到Set rs = Conn.Execute(strSQL)这一句报错，“要求对象”想求教大侠是不是我vb没装好

Qy.ActiveConnection = Conn
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open strDNS         '打开数据源
strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
Set Conn = New ADODB.Connection      '设置为新的空白数据源
Set rs = Conn.Execute(strSQL)        'conn 为新的空白数据源，自然报错。

大侠 你好
 Qy.ActiveConnection = Conn
 Set rs = New ADODB.Recordset
 Set Conn = New ADODB.Connection
 Conn.Open strDNS         '打开数据源
 strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
 ‘Set Conn = New ADODB.Connection      '设置为新的空白数据源
 Set rs = Conn.Execute(strSQL)        'conn 为新的空白数据源，自然报错。
我屏蔽了这段话还是报了要求对象的错！我之前反反复复的试了好多次，就差没再别人电脑上试了，有没有可能是我装的windows7还有那个vb中文版没装好了。

看一下ado再说吧