帮忙检查一下VB程序错误

以下是我编写的程序，目的是实现多条件查询，那位大侠帮忙看看错在哪里，好像是au_info这个SQL语句有问题，解决问题之后必有重谢！！

Private Sub Command2_Click()

If Text1(1).Text = "" And Text1(2).Text = "" And Text1(3).Text = "" And Text1(4).Text = "" And Text1(5).Text = "" And Text1(6).Text = "" And Text1(7).Text = "" And Text1(8).Text = "" And Text1(0).Text = "" Then
int1 = MsgBox("您还没有输入查询条件", vbExclamation, "Warning")
Else
Dim au_info As String
Dim s(9) As String
s(0) = "au_id"
s(1) = "au_lname"
s(2) = "au_fname"
s(3) = "phone"
s(4) = "address"
s(5) = "city"
s(6) = "state"
s(7) = "zip"
s(8) = "contract"
au_info = "select * form authors where "
For i = 0 To 8
If Text1(i).Text <> "" Then
au_info = au_info & "&

检查一下程序的错误 帮忙检查一下错误 有谁可以帮忙检查一下这个程序是否有错误 谁能帮我检查一下下面程序中的错误 帮忙检查一下VB代码哪错了 大家帮忙检查一下,看有没有错误!! 谁帮我检查一下，为什么这个VB语句错误？ VB程序错误 一个VB程序,帮忙看一下有什么错误 VB小程序低级错误帮忙下 谢谢