DataGridView

Queridos amigos,
Estou tentando usar um datagridview para mostrar o resultado da consulta abaixo, mas não dá erro nem mostra informação alguma no grid.

Alguém pode me ajudar???

Desde já agradeço.

        Dim conn As New OleDb.OleDbConnection(My.Settings.locadoraConnectionString)
        Dim sql As String
        conn.Open()

        sql = "Select   Movimento.CodigoLocacao, Cliente.Nome AS [Nome do cliente], Movimento.Locacao AS [Data de Locação], Filmes.Titulo AS [Nome do Filme], " & vbCr & _
        "Filmes.Genero, Filmes.Midia, Filmes.Classificacao, Filmes.Status" & vbCr & _
        "FROM " & vbCr & _
        "Movimento, " & vbCr & _
        "Filmes, " & vbCr & _
        "Cliente" & vbCr & _
        "WHERE" & vbCr & _
        "Movimento.CodigoFilme = Filmes.CodigoFilme And " & vbCr & _
        "Movimento.CodigoCliente = Cliente.CodigoCliente And " & vbCr & _
        "Movimento.Devolucao IS NULL" & vbCr & _
        "ORDER BY Movimento.CodigoLocacao"

        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        Dim ds As New DataSet
        Dim cm As New OleDb.OleDbCommand

        cm.CommandText = sql
        cm.Connection = conn

        da.SelectCommand = cm
        da.Fill(ds)
        conn.Close()

        DataGridView1.DataSource = ds.Tables(0)
        DataGridView1.DataMember = "Table"
        DataGridView1.Refresh()