dvOrt.Sort = "Ort"
        Dim rowIndex As Integer = dvOrt.Find(A")
        If rowIndex >= 0 Then
            grOrte.CurrentRowIndex = rowIndex
            grOrte.Select(rowIndex)
        Else
            MsgBox(tbOrt.Text + " nicht gefunden", MsgBoxStyle.Information, _
              "Info")
        End If