Заполните таблицу данных запросом

Question

Я новичок в кодировании. Учитесь по ходу дела, я хочу заполнить сетку данных только строками, где моя проверка равна нулю

Я хочу, чтобы в моей таблице данных отображались конкретные данные, не содержащие значения извлечения. Я понятия не имею, что я делаю неправильно. Я новичок в VB.

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
    datafile = "D:\Projects\ezchain\ezchain\data\ex.accdb"
    connec = provider & datafile
    mycon.ConnectionString = connec
    mycon.Open()
    Dim str As String
    str = "SELECT * from Keys WHERE checkout = '' "
    Dim cmd As OleDbCommand = New OleDbCommand(str, mycon)
    Try
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        mycon.Close()
    Catch ex As Exception
        MsgBox("Error")
        mycon.Close()
        Me.KeysTableAdapter.Fill(Me.ExDataSet.keys)
    End Try
    Me.KeysTableAdapter.Fill(Me.ExDataSet.keys)
End Sub

Атм ничего не появляется, даже исключение ... o.O