dv = New DataView()

Public Shared Function KundenSuchen(ByVal KundenNr As String, ByVal conn As _
  OleDbConnection) As DataView
 
 
 
        Dim cmd As OleDbCommand
        Dim da As OleDbDataAdapter
        Dim ds As DataSet
        Dim dt As DataTable
        Dim dv As DataView
 
        cmd = New OleDbCommand("Select * from Kunden", conn)
        da = New OleDbDataAdapter(cmd)
        ds = New DataSet()
        dv = New DataView()
 
 
        Try
            da.Fill(ds, "Kunden")
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
 
        dt = ds.Tables.Item("Kunden")
        dv = ds.DefaultViewManager.CreateDataView(dt)
 
        dv.RowFilter = "KundenNr = '" & KundenNr & "'"
        If dv.Count = 0 Then
            MessageBox.Show("Keinen Kunden gefunden","Fehler", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Function
        Else
            Return dv
        End If
 
    End Function