在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

你能说的具体点吗？是上面的代码实现不了还是别的问题？

.Value

List1.AddItem rs.Fields("列名")

图片来自：Luosen56的百度相册

用 SQL 命令重置记录集，并刷新表格，即可。