dvx = New DataView(FrmMain.DSExkursionsdaten.Firma)
       dvx.Sort = "Firma"
       'Index wird NACH alphabetischer Sortierung neu vergeben
       Dim a As Integer = dvx.Find(FrmMain.Txt1Kr1.Text)
 
       Dim TabelleFirma = New DSExkursionsdaten.FirmaDataTable()
 
       'Koordinaten der Firma A
       Dim LStart As Single = dvx.Item(a).Row("Laenge")
       Dim BStart As Single = dvx.Item(a).Row("Breite")