再问Access向SQL Sever 转化时遇到的sql语句问题

Question

这原来是使用Access数据库时的一sql语句,现在改为sql server,运行报错. 
Dim sql as string
Dim rs as New ADODB.Recordset
 sql="select * from t_Customer Ta, t_Book Tb, t_Count Tc"
set rs=getrecordset(sql)
        .Rows = 3
        If Not rs.EOF Then
            Do While Not rs.EOF
TextMatrix(Row-1,0)=Trim(rs("Ta.id"))
运行时报错.调试TextMatrix(Row-1,0)=Trim(rs("Ta.id"))这一句的时候,显示:
Item cann't be found in the collection correspanding to the requested name of ordinal
我要的是表Ta 中的id又比如:
sql="slelect * from t_A Ta,t_B Tb,t_C Tc when Ta.CusId=Tb.ID And Ta.BookID=Tc.ID and Td.Cus='" & Cus & "' " 
set rs=getrecordset(sql)
txtID.text = rs("Tc.id")
出现的错误同上,同样,我也是要表Tc中的id.

Answer 1

1，when --> where
2，将语句放入SQL的查询分析器执行，看看有没有tc.id这一列

Answer 2

sql="slelect * from t_A Ta,t_B Tb,t_C Tc when Ta.CusId=Tb.ID And Ta.BookID=Tc.ID and Td.Cus='" & Cus & "' " 
-->
sql="slelect *,tc.id as tcid from t_A Ta,t_B Tb,t_C Tc when Ta.CusId=Tb.ID And Ta.BookID=Tc.ID and Td.Cus='" & Cus & "' " set rs=getrecordset(sql)txtID.text = rs("Tc.id")--->txtID.text = rs("Tcid")