Filtrar DataGridView

[ci2000]

Hola. Logré mostrar los datos de una tabla en un DataGridView.
No me funciona el filtro. En este ejemplo quiero mostrar todos los que contengan el texto 'alm' y no me muestra nada siendo que hay datos que cumplen con la condición.
¿Qué hago mal?

Código:

Public Class frmBuscar

    Private Sub frmTablas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Tabla As New DataTable
        Dim Adaptador As New MySqlDataAdapter("SELECT * FROM calles ORDER BY calle", Conexion)

        Adaptador.Fill(Tabla)
        dgvTablas.DataSource = Tabla

        dgvTablas.Columns.Item(0).Width = 50
        dgvTablas.Columns.Item(1).Width = 50
        dgvTablas.Columns.Item(2).Width = 290
        'seleccioanr fila completa al hacer clic en un registro
        dgvTablas.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        Tabla = Nothing
        Adaptador = Nothing
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim BindingSource As Windows.Forms.BindingSource = New BindingSource
        Dim filtro As String = String.Empty

        filtro = "calle LIKE '%alm%'"
        BindingSource.Filter = filtro
        ' enlzar el datagridview al BindingSource  
        dgvTablas.DataSource = BindingSource.DataSource
    End Sub
End Class

Gracias y saludos