Private Function AdresseIstFrei(ByVal Adresse As String) As Integer
        If BsMassen.DataSource Is Nothing Then Return -1 ' mit Fehler zurück
        For i As Integer = 0 To BsMassen.Count - 1
            Dim Mrow As Object
            Dim AATable = ProjDts.MassenAA
            Dim VATable = ProjDts.MassenVA
            Dim ARTable = ProjDts.MassenAR
            Dim LVTable = ProjDts.MassenLV
 
            Select Case CBox_Massen.Text
                Case "AA-Menge"
                    'BsMassen.DataSource = ProjDts.MassenAA
                    Dim MrowA As ProjDts.MassenAARow = DirectCast(AATable.Rows( _
                      i), ProjDts.MassenAARow)
                    Mrow = MrowA
                Case "VA-Menge"
                    'BsMassen.DataSource = ProjDts.MassenVA
                    Dim MrowA As ProjDts.MassenVARow = DirectCast(AATable.Rows( _
                      i), ProjDts.MassenVARow)
                Case "RE-Menge"
                    'BsMassen.DataSource = ProjDts.MassenAR
                    Dim MrowA As ProjDts.MassenARRow = DirectCast(AATable.Rows( _
                      i), ProjDts.MassenARRow)
                Case "LV-Menge"
                    'BsMassen.DataSource = ProjDts.MassenLV
                    Dim MrowA As ProjDts.MassenLVRow = DirectCast(AATable.Rows( _
                      i), ProjDts.MassenLVRow)
                Case Else
                    Return -1                               ' mit Fehler zurück
            End Select
            'If Mrow.  da geht es nicht weiter. Hier soll die Spalte Adresse 
            ' auf Übereinstimmung geprüft werden 
        Next
        Return -1 ' mit Fehler zurück
    End Function

Danke für die Hilfe

Gruß Christian