标准表达式中数据类型不统一

写了如下代码：

Set rs = Db1.OpenRecordset("车辆集合")
Do While Not rs.EOF
    c = CStr(rs.Fields("车号统一"))
    Db1.Execute ("select ID,时间转换,时间差,车号统一,index1,index2 into GPS" & c & " from 车辆GPS数据 where 车号统一=" & c)
    rs.MoveNext
Loop

运行后出错，提示说“标准表达式中数据类型不统一”，可是我的“车辆集合”表就是从“车辆GPS数据”表中提取的，“车辆GPS数据”和“车辆集合”两张表中的“车号统一”字段都是短文本型，不知道错在哪里？