Imports System.Data.OleDb
 
Public Class Menü
    Public Class RichtextBoxfind : Inherits System.Windows.Forms.RichTextBox
 
        Private SearchIndex As Integer
 
        ''' <summary>
        ''' Durchsucht den Text nach einer bestimmten Zeichenkette und markiert 
        ' die 
        ' nächste gefundene Übereinstimmung
        ''' </summary>
        ''' <param name="Search">Enthält die zu suchende Zeichenkette</param>
        ''' <param name="SearchOptions">Enthält die Suchoptionen</param>
        ''' <returns>true, wenn der Suchbegriff mit den angegebenen Suchoptionen 
        ' gefunden wurde, ansonsten false</returns>
        ''' <remarks></remarks>
        Public Function SearchString(ByVal Search As String, ByVal _
          SearchOptions As  _
          Windows.Forms.RichTextBoxFinds) As Boolean
            ' Index für übereinstimmende Zeichenkette; -1, wenn nicht gefunden
            Dim i As Integer
 
            Try
                If (SearchOptions And Windows.Forms.RichTextBoxFinds.Reverse) = _
                  Windows.Forms.RichTextBoxFinds.Reverse Then
                    ' Ausführen, wenn Suchrichtung aufwärts ist
                    i = Me.Find(Search, 0, Me.SearchIndex, SearchOptions)
                Else
                    ' Ausführen, wenn Suchrichtung abwärts ist
                    i = Me.Find(Search, Me.SearchIndex, SearchOptions)
                End If
            Catch ex As Exception
 
            End Try
 
            If i < 0 Then
                ' Ausführen, wenn Zeichenkette nicht vorhanden ist
                Return False
            Else
                Me.SelectionColor = Color.Red
 
                ' Ausführen, wenn Zeichenkette vorhanden ist
                Me.SearchIndex = i + 1
                Return True
            End If
 
            ' Focus auf den Editor setzen
            Me.Focus()
        End Function
 
 
 
    End Class
 
    'Public RichTextBoxFinds As System.Object = RichTextBox1.Controls
    'Private SearchIndex As Integer
 
    Dim LineTxt As Integer = 9
    Dim LineEndVerb As Integer
    Dim LineEndErz As Integer
    Dim txt As String
    Dim Dat As VariantType
 
    Private Sub cbtVerbraucher_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cbtVerbraucher.Click
        Verbraucher.Show()
    End Sub
 
    ........
...........
.....
End Class

Wer aufhört sich zu verbessern, hört auf gut zu sein.