Private Function Select(ByVal strCMD String) As Boolean
        ...
         Dim dsDat As New DataSet("Abfrage")
            Dim p_adapter As New OleDb.OleDbDataAdapter(strCMD,con)
            Try
                p_adapter.Fill(dsDat)
                obj_dataset = dsDat 'außerhalb der function
            Catch eX As Exception
                err_state = True
                err_str = ("Verbindungsfehler - beim Select : " & eX.ToString)
            End Try
        ....
    End Function