菜鸟再问sql语句

Dim sql as string
Dim rs as 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 rsEOF
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