vb6读取access数据怎么通过text控件显示出来

sql = "select * from project_info where 工程名称=' " & Text1(0).Text & " ' "
    rs1.Open sql, con, 1, 3
   
   If Not rs1.EOF Then
    Text1(0).Text = rs1("工程名称")
    Text1(1).Text = rs1("建设单位")
    Text1(2).Text = rs1("工程编码")
    Text1(3).Text = rs1("施工时间")
    Text1(4).Text = rs1("所在地")
    End If
   End If
    rs1.Close