Private Sub cmdSuchen_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles cmdSuchen.Click
        '##----------------------
        Dim Filter As String
        Filter = TBFilter.Text
        '##----------------------
 
        Try
            Me.PROD_DEFINITIONTableAdapter.Fill( _
              Me.Borm_SQLDataSet.PROD_DEFINITION) 'Filter???
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub

VG

Dirk