Reco.Open "Select * From (车次 Left Join 采购单 On 车次.记录号 = 采购单.车次号 ) Order By 采购单.记录号 DESC", Conn, 1, 3

I = 0
J = 0

While Reco.EOF = False

'=================================================================================================

If InStr(Reco("供应商").Value, Trim(txtSupply.Text)) > 0 Then'这里不出错

        I = I + 1 'I=车次数
        
        If lastCC <> Reco("车次.记录号").Value Then'这里出错

提示：在对应所需名称或序数的集合中,未找到项目

本来世VB+Access的程序，一切正常的，现在换成VB+SQL SERVER，出现错误。
可以理解成Reco("列名")不出错,Reco("表名.列名")就出错，高人指点下怎么解决。谢谢!