vb6.0 SQL数据库，在list1内显示数据库多行结果，高手来

在list1内显示多行数据库筛选的结果
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SqlStr As String
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text2.Text & ";Persist Security Info=True;Jet OLEDB:Database Password=" & Text3.Text
rs.Open "select * from 表名 where 列名 like '%" & Text1.Text & "%" & "'", cnn, adOpenKeyset, adLockOptimistic '
Do While Not rs.EOF
List1.AddItem rs.Fields("列名").Value
rs.MoveNext
Loop
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing