Private Sub cmdFilter_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles cmdFilter.Click
        Dim Filter As String
        Filter = TBFilter.Text
 
        Dim GetData As String
        GetData = "select * from PROD_DEFINITION Where PD_NUM Like '" & _
          TBFilter.Text & "'"
        Me.DataGridView1.DataSource = Me.Borm_SQLDataSet
 
    End Sub

'wie ...?????
If PD_DWG_Folder.Text > 0 Then
    PD_DWG.Image = ImageList.Image(1)
End If
 
If PD_PDF_Folder.Text > 0 Then
    PD_PDF.Image = ImageList.Image(2)
End If

VG

Dirk