Try
 ...
Dim oBindingSource As BindingSource = _
GetBindingSource(cmdSelectRecords)           'Binding Source erstellen
 
'****** Hier passiert's ;)
If Not oBindingSource Is Nothing Then        'Binding Source vorhanden?
       Return oBindingSource                 'Ja  : Zurückgeben
Else
       Return Nothing                        'Nein: Nichts zurückgeben 
End If