Есть код. Работает.
Private Sub List1_Click()
Call PlaySound(CStr(CurDir) + "\Select.wav", 0, _
                        SND_FILENAME) ' Or SND_ASYNC)
  Dim strMyString, retval
  Dim Msg, Lng As String
      With List1
  strMyString = .List(.ListIndex)
  Lng = Len(strMyString)
  Text4 = Lng
  retval = Left(strMyString, Lng)
  Text3 = retval
  If Text3 <> "" Then
  Adodc1.RecordSource = "SELECT * FROM DB where City like " + _
                      Chr(39) + "%" + Text3 + "%" + Chr(39)
  Adodc1.Refresh 'выполнить запрос
        End If
      End With
          
Text2.Text = DataGrid1.ApproxCount
L_Exit:    Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit
End Sub
Нет никаких проблем ни с одним названием города, кроме двух
Если я ввожу "Томск", то и получаю список, где есть г. Томск.
Если я ввожу "Омск", то и получаю список, где есть И Омск, и Томск.
Как это понимать, подскажите, пожалуйста!
Спасибо!
			
		








 

 
