Private AutoDV as DataView=nothing
 
Private Sub AutoTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles AutoTextBox1.TextChanged
  If AutoTextBox1.Text = String.Empty Then
    AutoListBox.DataSource = Nothing
    If NOT IsNothing( AutoDV  ) Then AutoDV.Dispose()
    AutoDV = Nothing
  ElseIf isNothing( AutoDV ) Then
    AutoDV = New DataView( AutoDataTable )
    AutoDV.RowFilter = "DieSpalte='"+ AutoTextBox1.Text + "*'"
    AutoListBox.DataSource = AutoDV
  End If
End Sub