Teşekkür ederiöm güzel bir yol gösterdiniz.
Try
Dim ds As New DataSet
ds = Data.fill(CommandType.Text, "select * from tblkömür where bölüm_adı='" & cmbbölüm.Text & "'")
grdsektör.DataSource = ds.Tables(0).DefaultView
Catch ex As Exception
MsgBox("Dosya Yüklenemedi!", MsgBoxStyle.Critical)
End Try
olarak yazdım olay çözüldü....
![Çözüldü](images/icons/cozuldu.png)