查询条件的连接问题，请教

窗体上有六个标签，标签分别为数据库中记录的各个字段。标签为控件数组。相对应的还有六个文本框，也是控件数组，分别放查找条件，还有一个命令按钮。点击进行查询。即从图书信息表中查找图书信息.
我是这样想的，查询的时候首先判断六个文本框中是否有查询条件，若有则用AND连接起来。然后再查询显示在网格控件中


运行时提示from子句语法错误。头都大了。又是哪里的错啊。
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Dim a As Integer
For i = 0 To 5
If Text1(i) <> "" Then
a = a + 1　　　　　　　　　　　　　　　判断条件个数
If a = 1 Then
ztj = "Label1(i).Caption ='" & Text1(i).Text & "'"　　　第一个条件不需要“AND”

Else
ztj = ztj & "and " & Label1(i).Caption & "=" & Text1(i).Text　　二个或二个以上用AND　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　连接
End If
End If
Next i

Set rs = con.Execute("select * from 图书信息表 where" & ztj)
End Select
End Sub