[mmali127]

معذرة اخى الكريم 

تفضل 

 Public Function FillDatatree(SQL As String) As DataTable
        Dim dt As New DataTable
        da = New SqlDataAdapter(SQL, Conn)
        da.Fill(dt)
        Return dt
    End Function

وده موديل منفصل