Как изменить Названия

[Алекс]

памагите,
как переделать эту команду
я хочу задовать город Лондон в TextBox Каторай распаложен на моей форме

Dim varBookmark As Variant
Dim rsCustomers As ADODB.Recordset

varBookmark = rsCustomers.Bookmark
rsCustomers.MoveFirst
rsCustomers.Find "City = 'Лондон'"
If rsCustomers.EOF Then
    MsgBox "Customer not found. " & _
           "Returning to previous record."
    rsCustomers.Bookmark = varBookmark
Else
    MsgBox "Located desired customer."
End If

[PSD]

С делай так
rsCustomers.Find "City = '" & frmYou.Text1.text & "'"