Visual Basic - mostrar datos a un ListView

Hola a todos, si alguien me pudiera ayudar con esto se lo agradeceria.

Estoy trabajando con Visual Basic 6.0 cn ADO 2.7

En mi formulario tengo un ListView, un TextBox y un Command....necesito que al presionar el Command me haga la busqueda del texto en el TextBox en el Campo2 de mi tabla y cuando lo encuentre lo muestre en el ListView.
Todo esto funciona super bien, pero lo que yo necesito es que si yo anoto en el TextBox una F me muestre en el ListView todos los datos que comiencen con F en ese Campo.

Este es el código que tengo

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

--------------------------------

Private Sub Form_Load()

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "bd1.mdb"
cn.Open
rs.Open "select * from Tabla", cn, adLockOptimistic
With ListView1
.View = lvwReport
.GridLines = True
.LabelEdit = lvwManual

.ColumnHeaders.Add , , "Campo1", 2300
.ColumnHeaders.Add , , "Campo2", 2700
.ColumnHeaders.Add , , "Campo3", 1500, lvwColumnRight
.ColumnHeaders.Add , , "Campo4", 2700
.ColumnHeaders.Add , , "Campo5", 1500, lvwColumnRight

End With
rs.MoveFirst

End Sub

-----------------------------------------

Private Sub Command2_Click()
Dim tLi As ListItem
ListView1.ListItems.Clear
rs.MoveFirst

Do While rs.EOF = False
If rs!Campo2 = Text1 Then
Set tLi = ListView1.ListItems.Add(, , rs.Fields("Campo1") & "")
tLi.SubItems(1) = rs.Fields("Campo2") & ""
tLi.SubItems(2) = rs.Fields("Campo3") & ""
tLi.SubItems(3) = rs.Fields("Campo4") & ""
tLi.SubItems(4) = rs.Fields("Campo5") & ""
End If
rs.MoveNext
Loop
End Sub

Puedes probar modificando el if de tu Command2 de la siguiente manera:

If Left(rs!Campo2, Len(Text1)) = Text1 Then

Así, solo comparará lo que tengas en el text1 con la primera parte del campo2, con la misma cantidad de letras.

Espero que te sirva.

Saludos.

Muchas gracias, me fue de mucha utilizar y solucioné mi problema. Te lo agradezco