comboboxta seçili değere göre datagridview nasıl filtreliyebilirim.???

Şöyle bir kod yazdım ama dosya yüklenemedi diyor. Nerde hata yapıyorum....

Try
Dim ds As New DataSet
ds = Data.fill(CommandType.Text, "select * from tblkömür")
grdsektör.DataSource = ds.Tables("tblkömür").DefaultView.RowFilter = "bölüm_adı='" & cmbbölüm.SelectedValue.ToString & "'"
Catch ex As Exception
MsgBox("Dosya Yüklenemedi!", MsgBoxStyle.Critical)
End Try


grdsektör-------devexpreste tablo adı
cmbbölüm------- combobox adı
tblkömür------ tablo adı