sort a field in listview items by letter by letter entered in textbox txtsearch

[deekshitulu]

Hai Every one I am new to this forum
I wrote code to sort listview items letter by letter ie., a,b,s like that (indexing the column)
The code I wrote is :

Private Sub txtsearch_Change()
ListView1.ListItems.Clear
Dim list As ListItem
Dim x As Integer
connectDB
rs.Open "Select*from accreg where Title line'"&txtsearch&"%'", db, 3, 3
Do Until rs.EOF
Set list = ListView1.ListItems.add(, , rs(0))
For x = 1 To 3 'number of fields in the date base minus one
list.SubItems(x) = rs(x)
Next x
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
End Sub

But the error is Compile error

syntax error the following line of code coloured in Red.

rs.Open "Select*from accreg where Title line'"&txtsearch&"%'", db, 3, 3

kindly see the code above and give your valuable suggestion.http://www.youtube.com/results?searc...+Part+6&page=4 i need the result of code in video i.e, search fullname