查询条件的连接问题

Question

窗体上有六个标签，标签分别为数据库中记录的各个字段。标签为控件数组。相对应的还有六个文本框，也是控件数组，分别放查找条件，还有一个命令按钮。点击进行查询。即从图书信息表中查找图书信息.
我是这样想的，查询的时候首先判断六个文本框中是否有查询条件，若有则用AND连接起来。然后再查询显示在网格控件中
我想请教一下，连接条件时该如何写。即ZTJ该如何写Private Sub Form_Load()
Set con = New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\图书管理系统\图书管理系统.mdb;Persist Security Info=False"
con.Open str
Set rs = con.Execute("select * from 图书信息表  ")
End SubPrivate Sub Command1_Click
Dim a As Integer
     For i = 0 To 5
     If Text1(i) <> "" Then
      a = a + 1
       If a = 1 Then
       tz = Label1(i).Caption　　　　　　记录字段的名称
       ty = Text1(i).Text　　　　　　　　字段的值
       ztj = tz & "="&'"&trim(ty)&"'　　　连接起来，字段＝值
        Else
        tz = Label1(i).Caption
       ty = Text1(i).Text
        ztj = ztj & "and" & tz & "=" & '& " & Trim(ty) & "&'&"
       End If
      End If
     Next i
End Select
       q = "select * from 图书信息表 where"
  Set rs = con.Execute(q & ztj)
  Set mg1.DataSource = rs

Answer 1

Private Sub Command1_Click
Dim a As Integer
     For i = 0 To 5
     If Text1(i) <> "" Then
      a = a + 1
       If a = 1 Then
       tz = Label1(i).Caption　　　　　　记录字段的名称
       ty = Text1(i).Text　　　　　　　　字段的值
       ztj = tz & "="&'"&trim(ty)&"'　　　连接起来，字段＝值
        Else
        tz = Label1(i).Caption
       ty = Text1(i).Text
        ztj = ztj & " and " & tz & "=" & '& " & Trim(ty) & "&'&"
       End If
      End If
     Next i
End Select
       ztj = left(ztj,len(ztj) - 4)
       q = "select * from 图书信息表 where"
  Set rs = con.Execute(q & ztj)
  Set mg1.DataSource = rs

Answer 2

ztj = tz & "="&'"&trim(ty)&"'　　　
       
 ztj = ztj & "and" & tz & "=" & '& " & Trim(ty) & "&'&"
我是想知道上面这两句连接条件的这么写对不对呢？虾米成长中写这句又是什么意思呢       ztj = left(ztj,len(ztj) - 4)